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title “EXESTUFF = Analyze Various Parts of an Image’ 
module exestuff ( 
ident="V04-001') = begin 


OOoCoo 
UEwrn— 


' 
eee R RARER AAAAAAAEAAAET AEE ETEAA TATA ReeK AKA KeAKeteeeeereeeet 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE Spd yf Made SOFTWARE OR ANY OTHER 


SIS 
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i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
te compakat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


's DIGITAL ASSUMES NO RESPONS *. 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH 
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3 Facility: VAX/VMS Analyze Facility, Analyze Parts of an Image 

0 i Abstract: This module is responsible for  nalyzing various pores of 
0 : an image, including the header, patch text, and global 
symbol table. 
0037 1! 
sis Environment: 
Bes ; Author: Paul C. Anagnostopoulos, Creation Date: 31 March 1981 

0042 : Modified By: 

0044 1! V04-001 MSHO074 Michael S. Harvey 7-Sep-1984 

0045 ’ eg (A Lobal demand zero ISDs when validating 

Boe$ the ISD's length. 

0048 1! v03-008 ROPOO22 Robert Posniak 14-JUL-1984 

0049 ‘ Shift proper field for ISD base virtual 

Boas address output. 

0036 ‘ v03-007 ROPO00S Robert Posniak | 14-JUN=1984 

005 : Change allocation of local_described_buffers from 

ogee 80 to 512. 

0056 ‘ V03-006 MCNO168 Maria del C. Nasr 08-May-1984 
0057 ! If the image being analyzed was created by V3 or earlier, 
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¥06-001 , en PST aE TH ANALYZ SRE SEXES TUFF 63952 aad 
| 58 0058 then use old offsets to get image name and identification 
59 0059 information. 
| 60 0060 

61 0061 v03-005 — NO0158 Maria del C. Nasr 22-Mar-1984 

6¢ 006. Use SHL$C_MAX XNAMUNG. as the image name Length to pass 

6 006 to ANLSCHECK_SYMBOL. Also, eliminate declaration of 


local loop counter. 


v03-004 LJA0115 Laurie J, Anderson 2-Mar-1984 
Move the variable ‘alias’ from local (stack) storage to 
own storage. This masks the problem that if you say: 
anal/image imagel,image2 the second image gets the error 
not a VAX/VMS image’’. Do not know why, except has to 
to do with the stack. 


v03-003 LJA0106 Laurie J. Anders 26-Jan-1984 
1) Change the calls to ANLSGET_ IMAGE -BLOCK to the new image 
decode routines. 
2) Check for header block count of 0. Return error if so. 
3) Also, print out . 7 indirect message filenames when 
precegs ing the I 
lus in answer to OSPR 11-62167, the maximum number of 
characters in the patch text is increased from 80 to 
something more reasonable, 255. 


v03-002 PCA1011 Paul C. Anagnostopoulos 1-Apr-1983 
Change the message prefix to ANLOBJ$_ to ensure that 
message symbols are unique across alT ANALYZEs. This 
is necessitated by the new merged message files. 


v03-001 — Jim Teague 0 -Dec-1982 
Yoda te to accomodate ioe me in image header: 1)CLI images, 
2) IHD$V_DBGDMT bit, 35 1HS L_DMTVBN, 4) IHSSL _DMTBYTES. 
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94 0093 1 %sbttl ‘Module Declarations’ 
95 0094 1! | 
96 0095 1 ! Libraries and Requires: 
97 0096 1! 
98 0097 1. z 
99 0098 1 Library ‘Lib’; 
100 0099 1 require ‘imgmsgdef'; 
101 0185 1 require ‘objexereq'; 
Ise pos) 1 
10 06 ¢ 7 
104 06 1 ! Table of Contents: 
105 0626 1! 
106 0625 1 
107 0626 1 forward routine 
108 0627 1 anlSimage_header, 
109 0628 1 anl$image_isd: novalue, 
110 0629 1 anlSimage_patch_text, 
111 0630 1 anl$image_gst; 
M6 0631 1 
11 0632 1! 
114 0635 1 ! External References: 
115 0634 1! 
116 0635 1 
117 0636 1 external routine 
118 0637 1 not ete then 
119 0638 1 anl$check_sym ol, 
120 0639 1 anl$format_error, 
121 0640 1 anl$format_flags, 
122 0641 1 anl$format_hex, 
123 0642 1 anl$format_line 
124 0643 1 anl$get_image_block, 
125 0644 1 anl$object_eom, 
126 0645 1 ani pop ject. ged. 
127 0646 1 anl$object_hdr, 
128 0647 1 anl$interact, : 
129 0648 1 anl$object_record_size, 
130 0649 1 anl$report_line, 
131 0650 1 anl$report_page, 
132 0651 1 anl$get_image_header, 
133 0652 1 anl$get_isd; 
134 0653 1 
135 0654 1 external . . 
136 0655 1 anl$gb_interactive: byte; 
137 0656 1 
138 0657 1! : 
139 0658 1 ! Own Variables: 
140 0659 1! 
He Reed : ! The following table defines the match control values used throughout. 
143 0662 1 own ss iele 
144 0665 1 match_control: vector[8,long] initial( | 
145 0664 1 uplit byte(Zascic ‘ISDSK_MATALL'), 
146 0665 1 uplit byte(Zascic ‘ISDSK_MATEQU'), 
147 0666 1 uplit byte(Zascic "ISDSK_MATLEQ’) 
148 0667 1 uplit byte(%ascic "ISDSKTMATNEV")); 
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ANLSIMAGE_HEADER = Analyze Image Header -Sep-1984 

oss } Rsbttl *ANLSIMAGE_HEADER = Analyze Image Header' 

0670 1 ! Functional Description: 

0671 1! This routine is responsible for analyzing an image header. THis 
bof : includes formatting it in the report and checking its contents. 
0674 1 | Formal Parameters: 

0675 1! image_base Gytare Starting eddrers of image here. 

0676 1! fixup_size If a fixup section exists, return size here, 
been : fixup_vbn and VBN here. 

0679 1 | Implicit Inputs: 

pone : global data 

0682 1: Implicit Outputs: 

ee : global data 

0685 1 ! Returned Value: 

bees : If interactive session: true if we are to continue, false if not. 
0688 i Side Effects: 

0690 1 i-- 

0691 1 

0692 1 f ‘ 

Renz $ global routine anl$image_header(image_base,fixup_size,fixup_vbn) = begin 
0695 2 own . apie. 

Be8 § Link_flags_def: vector(7,long] initial ( 

0698 2 uplit byte(%ascic 'IHDSV_LNKDEBUG'), 
0699 2 uplit byte(Zascic "IHDSV_LNKNOTFR'), 
0700 2 uplit byte(Zascic "IHD$V_NOPOBUFS'), 
0701 2 uplit byte(Zascic ‘IHDSV_PICIMG') 

0702 2 uplit byte(%ascic 'IHDSV~POIMAGE'S, 
0703 § ; uplit byte(Zascic "IHDSV_DBGDMT')), 
44 § alias : word; 

0706 2 local 

0707 2 status: long, 

0708 2 hp: ref blockl, byte], 

0709 2 ape ref block(,byte], 

0710 2 von: Long, 

Baie § fixup_address: long; 

0713 2 ! Offsets to image name and identification information in images created by 
bate § : VMS v3.x or earlier. 

0716 2 macro 

0718 IHI$_IMGID = 19.9 0,0 % 

0719 IHISTLINKTIME ="32,0,0,0 %, 

0559 2 IHI$_LINKID = 40,0,0,0 2; 

0739 bind mae *€ ase 

072 v3_majorid = uplit (Zascii‘02"), ! Linker major id in V3 
0724 v3_minorid = uplit (Zascii'04'); ! Linker minor id in v3 
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0725 
8! § ! We are going to analyze the image header. Get it. 
8? 8 anl$format_line(0,0,anlobj$_exehdr); 
8 2 anl$report_line(-1);: 
44 status = anl$get_image_header(hp,alias); 
07 : If we couldn't get the first header block, or if it doesn’t end with 
0734 ' a &x'ffff* or 43°0003" or %x'0002', then this can't be a native image. 
0735 ' “l= produced by the VAX-11 Linker 
0736 ' Q = RSX compatibility mode 
0737 4 1 = Activate BPA 
0738 ' ¢ = Name of image to activate is in image header 
1544 § = It's a CLI 
0741 2 if not .status or 
L944 (,alias nequ %x'ffff* and .alias nequ %x'0003' and .alias nequ %x‘0002") 
074 then (anl$format_error(anlobj$_exenotnative); 
Ores § return false;); 
Bree 2 ! Begin with the fixed fields at the beginning of the header. 
0748 : anl$format_tLine(3,1,anlobj$_exehdr fixed); 
to § anl$report_line(=1); 
163 § ! Analyze the image identification info. 
Br 37 § anl$format_lLine(0,2,anlobj$_exehdrimageid,2,hplihd$w_majorid),2,hplihd$w_minorid)); 
0755 2! Analyze the header block count. If the count is zero, this is a bad 
8738 § ! image. The image activator will not activate it. 
0758 if .hpCihd$Sb_hdrblkcnt 
or 38 3 Be pli hdrblkcnt] eqlu 0 
Bee § anl$format_error(anlobj$_badhdrblkcount, .hplihd$b_hdrblkcnt]) 
se 
Bes $ anl$format_line(0,2,anlobj$_exehdrblkcount, .hpLihd$b_hdrblkcnt]); 
0764 2! Analyze the image type code. If shared, print the global tion ID d 
1484 § ! the hatch control. ” : Me roan Rae sities sins 
0767 2 selectoneu_.hplihd$b_imgtype] of set ; 
3708 Cihd$k_exe): anl$Tormat_line(0,2,anlobj$_exehdrtypeexe) ; 
0770 Cihd$Sk_lim): (anl$format_lLine(2,2,anlobj$_exehdrtypel im) ; 
0771 anl$format_Tine(0,%,anlob Sxehdrgbi ident, -hpLihd$l_ident}); 
0772 3 selectoneu .hpLihd$v_matchcEl] of set 
0773 3 Cisd$k_matall, 
0774 ; isd$k_matequ, 
0775 isd$k_matleq : : 
0776 3 isd$k_matnevi: anl$format_line(0,3,anlobj$_exehdrmatch, 
0777 ; ; -match_control(.hplihd$v_matchctl])); 
144 5 Lottiorsined: anl$format_error(anlobj$_exebadmatch, .hpl ind$v_matchctl]); 
esi). 
0780 
0781 5 Cotherwise): anl$format_error(anlobj$_exebadtype, .hpLihd$b_imgtype]); 
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264 07 ¢ § tes; 
265 07 2 
266 07 ! Amalyze the 1/0 channel count. 
267 0785 : } 
268 gree if .pplind$w_jochancnt] eqlu 0 then 
269 0787 ani $format_line(G,2,anlobj$_exehdrchandef) 

270 0788 § else : 
ae $434 3 ar: ($format_line(0,2,anlobj$_exehdrchancount,.hplind$w_iochancnt]); 
2? 0791 ! Analyze the 1/0 section page count. 

57% 0792 § : : 
she 079 § if .nplindSw_imgiocnt] egiu 0 then 

76 0794 anl$format_line(0,2,anlobj$_exehdrpagedef) 

27? 0795 2 else é 3 
4 tae s anl$format_line(0,2,anlobj$_exehdrpagecount, .hplihd$w_imgiocnt]); 
co 5738 ¢ ! Analyze the Linker-produced flags. Don't get confused by the match control. 
282 0800 2 anl$format pee be St re tg exehdrflags, .hpLihd$l_inkflags] and %x"OOffffft', Link_flags_def); 
so? peas 4 ani $check_Flags(.hpLind$i_Tnkflags] and %xOOfttTft', Link_flags_def); 
285 0803 2 ! Analyze the system version, if specified. 

286 0804 2 
287 0805 ¢ if .mplihdSl Syever? 909s 0 then | : 
cee 94 4 anl$format_line(0,2,anlobj$_exehdrsysver,4,hpLind$l_sysver]); 
290 0808 2! If the fixed portion is long enough to accomodate a fixup section 
$3) e444 § ! virtual address (V3A and later), then remember the address. 
293 0811 2 if .hp+.nplihd$Sw_activoff] gtra hplihd$l_iafva] then 
294 0812 2 fixup_address = .hplihd$l_ iafva! 
295 0813 2 else 
296 0814 2 fixup_address = 0; 

97 0815 2 : ; : : : : 

98 0816 2! If this is an interactive session, give the user a chance to quit. 

299 O817 2. : 

go 0818 2 if .anl$gb_interactive then 

01 0819 ¢ if not anl$interact() then 

302 0820 2 return false; 
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04 0821 : Now we are going to analyze the information in the activation section. 
05 Be ¢ ! It is always present. 

G Of 4 an\$report_line(-1); z 

08 0825 anl$format_line(3,1,anlobj$_exehdractive); 

09 08 8 anl$report_line(=1); 

10 08 § : 

11 0828 sp = .hp + .hpLindSw_activoff); 

\¢ th e 

12 ttt] § ! Analyze the three transfer addresses. 

a: thy rd ere Tormet nL enc h Been toe en eeenge ster] --sof ihest tirade] }): 

16 08 § it} the SB eh pet ed | dante at ak iha$l_tfradr2]); 

34 § ste: § anl$format_line(0,2,anlobj$_exehdrxfer3,.spliha$l_tfradr3]); 
339 0836 2 ! Make sure the thing ends with a trailing zero. 
#59 0837 2. 

21 0638 2 if .spli2.0,52.0] nequ 0 then ~ 

$56 pst 3 anl $format_error(anlobj$_exebadxfer0): 

$¢ ppe> § ! If this is an interactive session, give the user a chance to quit. 

26 0845 2 if .anl$gb_interactive then 

e7 0844 2 if not anl$interact() then 

328 CB45 2 return false; 
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‘ He 0846 2 ! Now we are going to analyze the stuff im the symbol table and debug section. 
3 1 beck ! It is always present. 
; 3 oRce anl$report_line(-1); : 
; 336 0850 anl$format_line(3,1,antobj$_exehdrsymdbg); 
; $86 i833 anl$report_line<=1); 
; 337 085 sp = .hp + .hplihdSw_symdbgof fl; 
: 338 0854 sgpee 
: He tH § ! Analyze the debug symbol table VBN and block count. 
; gi rs tA $ ani $format_line(0,2,anlobj$_exehdrdst,.splihs$l_dstvbn],.spLins$w_dstbiks]); 
; rh 6 T4 2 ! Analyze the global symbol table VBN and record count. 
; Siz ere anl$format_lLine(0,2,anlobj$_exehdrgst,.spLins$l_gstvbn],.splins$w_gstrecs]); 
; 347 0863 2 ! Analyze the Debugger DMT, if present 
; «348 0864 2. : 
; «6349 0865 2 if .hplihd$v_dbgdmt) 
3° 39 0866 2 then 4 ; ; 
é 32) +9t4 3 an\$format_line(0,2,anlobj$_exehdrdmt,.spLihs$l_dmtvbn],.splihs$l_dmtbytes]); 
; 353 0869 2! If this is an interactive session, give the user a chance to quit. 
; 354 0870 2 
3 «2? 0871 2 if .anl$gb_interactive then 
3; 3 0872 2 if“not ani$interact() then 
5: 2or 0873 2 return false; 
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; 359 0874 ! Now we are going to tackle the image identification section. 

; 0 0875 ! It is always present. 

eS pg76 

: 6¢ 087 ani $report_line(- 5 

; *% 067 anl$format_line(3,1 -anlobj$_ exehdrident); 

; 5646 9879 an\$report_line(- ={): 

: 6365 0880 2 Aa 

: 366 0881 sp = .hp + .hplihdSw_imgidoff]; 

s Ser pees 

; 368 088 begin 

; 369 0884 local : 

3 70 0885 name_dsc: descriptor; 

; 71 0886 

oe 0887 ! Analyze the image name, image ident iVicet ton, date and ap; of Senge 5 
hee} 4 0888 i and Linker identification. If the image was Linked with V3 Linker, then 
; 375 oes 3 use old offsets to get information, otherwise use latest values. 

3 76 0891 5 

: 77 0892 5 if .hpLihd$w majorid] gtr .v3_majorid 

; 578 0893 3 of .hplihdSw_minoridd gtr .v3_minorid : 

: 379 084. 3 then ! after v3 Linker 

; 380 0895 4 be 

, 38} 0896 4 an ts Revie Line(0,2,anlobj$_ exgharnene: eM mi mit 

; 382 0897 4 build ,desct iptor (name_ dsc,. -SpC0 0,8, 01.spl1.0 

s 385 = 0898 = 4 anl$check_s By7b0} Snare dsc, shl$c_maxnaming) ; 

: 384 0899 4 anl$format_line(0,2,anlob)]$_exehdrfileid, “eae imgid]); 

; 300 0900 4 an\$format_line(0,2,anlob]$_exehdrtime, splihi$g LInktime]); 

; 386 0901 4 an\$format_line(0,2,anlobj$_ exehdrlinkid, splihi$t_linkid]); 

; 387 0902 4 end 

; 388 0903 3 else ! v3 or earlier 

; 389 0904 4 be 

; 390 0905 4 an le Line(0,2,anlobj$_ saghgrasee. sop inis ss | pane 

2 0906 4 buiid descriptor (name_ age tt .0,8,0].spl1,0 

: 3 0907 4 anl$check_symbol (name_dsc ($¢_maxnamLng); 

; 393 0908 4 anl$format_line(0,2, anlob]$_ exehdrfileid, Zot inis, imgid]); 

;: 7 0909 4 anl$format_ “line(0,2,anlob]$~ exehdrtime,splihi$_linktime]); 

:° 5 0910 4 anl$format_line(0,2,anlob)$_ exehdrlinkid, splihi$_linkid]); 

2 39 0911 3 end; 

;- ye 0912 2 end; ! of local ‘‘name_dsc”™ 

s 596 0913 2 

: 399 0914 2 ; : : ; 

; 400 0915 2! If this is an interactive session, give the user a chance to quit. 
3; 401 0916 2 

: 402 0917 2 if .anl$gb_interactive then 

7 403 0918 2 if~not anl$interact() then 

: 404 G919 2 return false; 
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0920 ! Now we are going to analyze the patch section. 
24 1 ! I]t may mot necessarily exist. 
89 § an\$report_Line(-1); : 
0924 an\$format_line(3,1,anlobj$_exehdrpatch); 
o3 5 anl$report_line(-1); 
09 ; if .hpLihd$w_patchoff] nequ 0 then ( 
0999 sp = .hp + .hplihd$w_patchoffl; 
a4 ? ! Begin with the Digital ECO bits. 
0984 ; an|$format_line(0,2,anlobj$_exehdrdececo,.spLihp$l_ecol],.spLihp$l_eco2],.splihp$l_eco3]); 
oe H ! And the user ECO bits. 
0936 ; anl$format_line(0,2,anlobj$_exehdrusereco,.splihp$l_eco4]); 
Baas ; ! Analyze the read/write and read-only patch area info. 
0940 3 anl$format_lLine(0,2,anlobj$_exehdrrwpatch,.splihp$l_rw_patadr],.spLihp$l_rw_patsiz]); 
Reed ; anl$format_lLine(0,2,anlobj$_exehdrropatch,.splLihp$l_ro_patadrJ,.spLinp$l_ro_patsiz]); 
bad, ; ! Now the VBN of the patch command text. 
oe? ; anl$format_line(0,2,anlobj$_exehdrtextvbn,.splihp$l_patcomtxt]); 
gree ; ! And the date of most recent patch. 
Roce H anl$format_line(0,2,anlobj$_exehdrpatchdate,splihp$q_patdate]); 
Beet ; ! If this is an interactive session, give the user a chance to quit. 
0953 3 if .anl$gb_interactive then 
0954 3 if not anl$interact() then 
0955 3 return false; 
0956 3) else ( 
0957 3 
oes ; : There is no patch section now. 
0960 5 anl$format_line(0,2,anlobj$_exehdrnopatch); 
0961 2); 
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: 649 096 : Analyze the image section descriptors. These begin after ali the above 
; 450 996 ! sections and can 9° on for multiple blocks. 
3 451 0964 : We also use this loop to search for the fixup section. If we don’t find 
$ $2 nee? ! one, we will inform the caller with zero fixup parameters. 

; 656 096 -fixup size = .fixup_vbn = 0; 

; 455 0968 : 

; 456 0969 ¢ anl$report_line(-1); 

s 657 0970 an\$format_lLine(3,1,anlobj$_exehdrisd); 

: 458 0971 

; 459 097 vbn = 1; 

; 660 097 incru isd from 1 do ( 

3; 461 0974 : 

; 46 0975 : First we see if we have run out of ISDs in this block. If so, 
; 46 0976 ! we advance to the next block. This routine keeps track of how 
: 464 0977 ; ! many ISD's we've looked at so far. 

; 465 0978 

; 466 0979 ; status = anl$get_isd(hp); 

3; 467 0980 ‘ ; 

; 468 0981 ! Now we see if we are all done with the ISDs. The return status 
: 469 098 ! is IMGS_ENDOFHDR 

; 470 0985 3 

3: 471 0984 3 exitif (.status eqlu img$_endofhdr); 

5 47 0985 3 ‘ 

3 «(47 0986 3 increment (vbn); 

; 476 0987 4 if not .status then ( 

3; 475 0988 4 anl$format_error(.status); 

; 676 0989 4 exitloop; 

3; 477 0990 3 3 

: 478 0991 3 sp = .hp; 

; 479 0992 3 

; 480 0993 3 eee 

; 681 0994 3 ! Seems we have an ISD to analyze. Make sure it fits completely 
; rey pone H ! within the block. 

; 484 0997 4 if .splisd$w size] gtru .hp+5i2-.sp then ( 

: 485 0998 4 | an $format_error(anlobj$_exehdrisdlong); 

3; 486 0999 4 exitloop; 

; 487 1000 3 : 

; 4488 1001 3 

3 489 1002 3 ! Format and analyze the ISD. 

; 490 1003 3 : ; ; 

; «(4491 1004 3 anlSimage_isd(.sp,.isd); 

; 49 1005 ; Seige : é 

3 «49 1006 ! If this is the first ISD, then we want to return its base address, 
3 4% 1007 3 ! which is the starting address of the entire image. 

7 «495 1008 3 ere 

; 4% 1009 ; if .isd eglu 1 then : 

3; 497 1010 -image_base = .spLisd$v_vpn]*9; 

: 4498 1011 3 ; ; : age e ane 

; 499 + A 3 ! If we have a fixup section, let's see if this is it. If so, 

: 204 siz ; ' return its size and VBN. If they are bad, tell the user. 

;. 30 1015 3 if .fixup address nega 0 then ; 

7. 30 1016 3 if .fixup address eqla sot iséby veel"? then 

; 504 1017 3 if .splisd$w_pagcnt] eqlu 0 or .splisd$l_vbn]} eqlu 0 then 
5 505 1018 3 an( $format_error(anlobj$_exebadfTxupisd) 
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; 208 1019 4 else ( 
3 30 1020 4 -fixup size = .splisd$w pagent]; 
; 508 1021 4 -fixup_vbn = .splisd$l_vonJ; 
; 509 10 ; ); 
; 319 10 - 
; a1) 1. : ! If this is an interactive session, give the user a chance to quit. 
H 818 1026 if .anl$gb_interactive then 
s 516 1027 if not ani$interact() then 
: az 1028 return false; 
: 516 1029 
; OW 1030 ); 
> 518 1031 
5. 319 1936 return true; 
;. 320 103 
Poe * & | 1034 1 end; 
-TITLE EXESTUFF gc ha - Analyze Various Parts of an 
: mage 
IDENT \v04-001\ 
-PSECT SPLIT$S,NOWRT,NOEXE,2 
4C 46C 41 54 41 4D SF 4B 24 44 53 49 QC Q0000 P.AAA: .ASCII <12>\ISDSK_MATALL\ ; 
55 51 45 546 41 4D SF 48 246 44 53 49 OC OQO00D P.AAB: .ASCII <12>\ISDSK_MATEQU\ j 
51 465 4C 56 41 4D SF 468 26 446 53 49 OC OQOOIA P.AAC ASCII <12>\ISD$K_MATLEQ\ FH 
56 45 4E 54 41 4D SF 4B 24 44 53 49 OC 00027 P.AAD «ASCII <12>\ISD$K_MATNEV\ : 
47 55 42 45 46 4B GE 4C SF 56 24 44 48 49 QE 00034 P.AAE ASCII = <14>\THDSV_LNKDEBUG\ ; 
52 46 56 GF 4E 4B GE 4C SF 56 246 446 48 49 QE 00043 P.AAF ASCII <14>\1HDSV_LNKNOTFR\ ; 
55 46 55 42 30 50 4F GE SF 56 26 44 48 49 OF 00052 P.AAG: .ASCII <14>\IHD$V_NOPOBUFS\ : 
47 4D 49 43 49 50 SF 56 24 44 48 49 OC 00061 P.AAH ASCII = <12>\IHDSV_PICIMG\ ; 
45 47 41 46D 49 30 50 SF 56 24 44 48 49 OD QOO6E P.AAI: .ASCII <13>\IHD$V_POIMAGE\ : 
54 4D 44 47 42 46 SF 56 26 44 48 49 OC Boas P.AAJ at ¥ Pre ey pee | ; 
-BLK 
00 00 32 30 OOO8C P.AAK: .ASCII \02\<0><0> : 
00 00 34 30 00090 P.AAL: .ASCII \04\<0><0> : 
-PSECT SOWNS,NOEXE,2 
00000000* 00000000* 00000000" 00000000" 00000 MATCH_CONTROL: 
-ADDRESS P.AAA. P.AAB, P.AAC, P.AAD 3 
00010 -BLKB 16 
00000005 00020 A 10 _FLAGE DEF: 
00000000" 00000000" 00000000" 00000000° 00000000* 00000000° 00024 ADDRESS P.AAE, P.AAF, P.AAG, P.AAH, P.AAI, P.AAJ 
0005C ALIAS: .BLKB 2 
V3_MAJORID= P.AAK 
V3_MINORID= P.AAL 
-EXTRN ANLOBJ$_OK, ANLOBJ$_ANYTHING 
“EXTRN ANLOBJS$"DATATYPE 
.EXTRN ANLOBJ$~ERRORCOUNT 
-EXTRN ANLOBJ$_ERRORNONE 
-EXTRN ANLOBJ$"ERRORS, ANLOBJS$_EXEFIXA 
wEXTRN ANLOBJS"EXEF 1 XAIMAGE 
.EXTRN ANLOBJS"EXEF IXAL INE 


HDRISDBASE 
HDRISOCOUNT 
HDRISDFLAGS 
HDRI SDGBLNAM 
HDRISDNUM 
EHDRISDPFCDEF 
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~EXTRN roe Ht HMRHH 
~EXTRN NLOBJ =EXEFIXEXT 
eEXTRN ANLOBJS“EXEF IX FIX ED 
sEXTRN ANLOBJS_EXEFIXFLAGS 
-EXTRN ANLOBJS_EXEFIXG 
«EXTRN ANLOBJS_EXEF IXGIMAGE 
/EXTRN ANLOBJSTEXEF IXGL INE 
-EXTRN ANLOBJS_EXEFIXLIS 
~EXTRN ANLOBJ$— BNEF LAWARE 
~EXTRN ANLOBJS$— _EXEF IXNAMEO 
~EXTRN ANLOBJ$_ EXEFIXP 
-EXTRN ANLOBJS_EXEFIXP sect 
~EXTRN ANLOBJ$_ EXEF IxXUP 
~EXTRN ANLOBJ$— EXEF IXUPNONE 
~EXTRN ANLOBJ$™ ma ANLOBJ$_EXEHDR 
~EXTRN ANLOBJ$_ EXEHDRACTIVE 
~EXTRN ANLOBJ$_ EXEHDRBLKCOUNT 
~EXTRN ANLOBJ$~ EXEHDRCHANCOUNT 
~EXTRN ANLOBJS$— _EXEHDRCHANDEF 
~EXTRN ANLOBJ$_ bedi 
-EXTRN ANLOBJS— _EXEHDRD 
~EXTRN ANLOBJ$_ EXENDRDST 
~EXTRN ANLOBJS$_ EXEHDRFILEID 
-EXTRN ANLOBJS— M he dt 
~EXTRN ANLOBJ$_ EXEHDRFLAGS 
~EXTRN ANL OBJ“ XENDRGBL IDENT 
-EXTRN ANLOBJS$_EXEHDRGST 
.EXTRN ANLOBJS$—  EXEHDRIDENT 
-EXTRN ANLOBJ$— _EXEHDRIMAGE ID 
~EXTRN ANLOBJ$~ _EXEHDRISD 
> $"EXE 

$"EXE 

$"EXE 

$"EXE 

$"EXE 

“EX 


XTRN ANLOBJ$_EXEHDRNOPATCH 
XTRN ANLOBJ$~EXEHDRPAGE COUNT 
XTRN ANLOBJ$~ operone rept EF 
XTRN ANLOBJ$"EXEHDRPATCH 

XTRN ANLOBJ$~ EXENDRPATCHOATE 
XTRN ANLOBJS$_EXEHDRPRIV 

XTRN ANLOBJ$"EXEHDRROPATCH 
XTRN ANLOBJ$"EXEHDRRWPATCH 
XTRN ANLOBJS$"EXEHDRSYMDBG 
XTRN ANLOBJ$"EXEHDRSYSVER 

x wads ths 
xX RTIME 

x 
x 
x 


E 
EH 
Fated th 
E 


HDRTYPELIM 


EX 
EX 
“EXEH 
“EX 
“EX 
“EXEHDRUSERECO 
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ANALYZ.SRCJEXESTUFF. “33 i2 
ANLOBJS_EXEHDRXFER1 


ANLOBJ$~EXEHDRXFER 
ANLOBJ$~EXEHDRXFER 

ANLOBJ$~ pein 

we Cols xceA TCH 

ANLOBJ$—FLAG ANL OBS HEXDATA 
ANLOBJ$~HE XHEAD I 

ANLOBJ$~ 


At Oay8- bese onse Venn 


ANLOBJ$_OBJGSDIDC 
ANLOBJ$~OBJGSDIDCENT 
ANLOBJ$~OBJGSDIDCFLAGS 
ANLOBJ$~OBJGSDIDCMATCH 
ANLOBJ$~OBJGSDIDCOBJ 
ANLOBJ$_OBJGSDIDCVALA 
ANLOBJ$_ Beat ttty tp 


C 
ANLOBJ$_OBJGSDPSCAL IGN 
ANLOBJ$~OBJGSDPSCALLOC 
ANLOBJ$_OBJGSDPSCBASE 
ANLOBJ$~OBJGSDPSCFLAGS 
ANL OBJ$~OBJGSDREC 
ANLOBJ$"OBJGSDSPSC 
ANLOBJ$_OBJGSDSYM 
ANLOBJ$~ omevateneee 
ANLOBJ$~OBJGTXREC 
ANLOBJ$— ~OBAHDRI GHREC 


ANLOBJ$~OBJMHDPATCH 
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4 . gt 
52:4 ANALYZ.SRCJEXESTUFF .832;2 
~~ ANLOBJ$_OBJMHDREC 


RCREC 
XTRN ANLOBJ$"OBJSTATHEADING! 
XTRN ANLOBJ$~OBJSTATHEADING2 
XTRN ANLOBJ$_OBUJSTATLINE 
XTRN ANLOBJS$_ “OBI SYRBOL 


; “OBIS 
“EXTRN ANLOBJ$~OBJSYMFLAGS 
“EXTRN ANLOBUS~ ~DBITIRARG INDEX 
“EXTRN ANLOBJ$~OBJTIRCMD 
“EXTRN ANLOBUS~ ~OBITIRCRDSTK 


TEXTRN ANLOBJ$~OBJTIRREC 
TEXTRN ANLOBJ$~OBJTIRSTOIM 
TEXTRN ANLOBJ$~OBJTIRVIELD 


RITY 
-EXTRN ANLOBJS_TEXT, ANLOBJ$_TEXTHDR 
-EXTRN ANLOBJS— “NOSUCK MOD 


. SYMLE 
-EXTRN ANLOBJS$_EXEBADF I XUPEND 
-EXTRN ANLOBJS$_EXEBADF IXUPISD 
-EXTRN ANLOBJ$_EXEBADF I XUPVBN 
-EXTRN ANLOBJ$_EXEBADISDS1 
-EXTRN ANLOBJS— minty eds ge 


-EXTRN ANLOBJ$_EXEBADMATCH 
-EXTRN ANLOBJ$_EXEBADPATCHLEN 
EXTRN ANLOBJ$_EXEBADOBJ 
-EXTRN ANLOBJS_EXEBADTYPE 
-EXTRN ANLOBJS~EXEBADXFERO 
EXTRN ANLOBJ$_EXEHDRISDLONG 
-EXTRN ANLOBJS—EXEHDRLONG 
-EXTRN ANLOBJ$~ EXE SDLENDZRO 
~EXTRN ANLOBJS_EXE ISDLENGBL 
EXTRN ANLOBJS"EXE I SDLENPRIV 
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-EXTRN ANLOBJS_ pxcnorTnarive 
TRABYTES 


ERROR 
[EXTRN ANLOBJS-NOTOK, ANLOBJ$_OBJBADIDCMATCH 
[EXTRN ANLOBJ$~ OBJBADNUM 


‘ J 
-EXTRN ANLSOBJECT_HDR, ANL SOBLECT 
-EXTRN ANLSOBJECT-RECORD_SIZE 

ORT “LINE 


-EXTRN ANLSREPORT™ 5" 
-EXTRN ANL$GET_IMAGE HEADER 
*EXTRN ANL$GET~ISD, INL SGB. INTERACTIVE 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 -ENTRY ANLSIMAGE_HEADER, Save R2,R3,R4,R5,RO,R7.> ; 0693 
R8,R9,R10-R11 
9€ 0000 MOVAB ANL $68 INTERACTIVE, R11 
9E 0000 MOVAB  ANLS$FORMAT_ERROR, a!0 
9€ 0000¢ MOVAB ANLS$REPORT“LINE, 
MOVAB ANLSFORMAT“LINE. Re 


11 
16 Wie, SP 
? PUSHL PANL OBIS. EXEHDR 


DMA 
Moo & WD 
i= 
So 
So 
So 
a 


000000006 0728 


WOOD AOO 
as nal on iene ene ee ee) 
eee ee Oe Oe Oe Oe Be S 
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$8 3 FB 00021 CALLS At a mate LINE s 
3 1 CE 00024 MNEGL #i, -(SP) : 0729 

6 FB 00027 CALLS #1, ANLSREPORT_LINE é 
0000" CF 9F O002A PUSHAB tins : 0731 

04 9F OO002E PUSHAB : 

0000G CF FB 000351 CALLS a2. aon S68 T. IMAGE _HEADER é 

57 DO 000 MOVL Tus F 
16 9 000 BLBC stirs. 1$ + 0741 
50 0000° ff C 00035C¢ MOVZWL is 8 3; 0742 

FIFE OBF 0 81 00041 CMP , #65535 : 

16 13 00046 BEQL 2$ : 

03 $9 a 00048 CMPW RO, #3 - 

1 13 00048 BEQL 2$ 3 

02 50 B61 0004D CMPW RO, #2 3 

gr 13 00050 BEQL 2$ 3 
00000000G 8F DD 00052 1$: PUSHL #ANL OBIS EXENOTNATIVE : 0743 

6A 91 FB 0005 CALLS #1, ANLSFORMAT_ERROR ; 
0471 31 00058 BRw 41 s 0744 
00000000G 8F DD OOOSE 2%: PUSHL #ANLOBJS_EXEHDRF IXED : 0748 

01 DD 00064 PUSHL #1 : 

03 DD 00066 PUSHL #3 : 

68 03 FB 00068 CALLS a3, an, SPORE LINE g 
7E 01 CE 0006B MNEGL #1 3; 0749 

69 01 FB OO06E CALLS #1. ANE SREPORT LINE F 
53 of pO 00071 MOVL HP : 0753 

OE A3 9F 00074 PUSHAB 14(R3) 3 

0¢ DD 00077 PUSHL #2 3 

0c A3 9F 00079 PUSHAB 12(R3) 3 

ge DD 0007C PUSHL r ; 

000000006 8F DD O007E PUSHL #ANLOBJ$_EXEHDRIMAGE ID : 

02 DD 00084 PUSHL #2 3 

7E 04 00086 CLARL -(SP) § 

68 07 FB 00088 CALLS #7, ANLSFORMAT_LINE : 
50 10 <A3 9A 00088 MOVZBL 16(R3), RO ; 0758 

OD 12 0008F 3$ é 
50 DD 00091 PUSHL RO ; 0760 

00000000G 8F DD 00093 PUSHL #ANLOBJ$_BADHDRBLKCOUNT : 

oA 02 FB 00099 CALLS At ANL $FORMAT_ERROR ; 

gf 11 0009C BHR 4$ ; 
0 DD OO09E 3$: PUSHL RO : 0762 

900000006 8F DD O00A0 PUSHL M#ANLOBJ$_EXEHDRBLKCOUNT : 

02 DD O00A6 PUSHL 4&2 ; 

7E D4 OCOA8 CLRL -(SP) : 

68 04 FB OOOAA CALLS #4, ANLSFORMAT_LINE : 
50 11 A3 9A OOOAD 4$: MOV7BL 17(R3), RO : 0767 
01 50 91 00081 CMPB RO, #1 ; 0768 

OF 12 00084 BNEQ 5 : 

00000000G 8F DD 00086 PUSHL #ANLOBJ$_EXEHDRTYPEEXE ; 

02 OD 000BC PUSHL #2 3 

43 D4 OO00BE CLARE -(SP) 5 

68 9 FB 000CO CALLS #3, ANLSFORMAT_LINE : 

6 11 000C3 BRB 9S F 
02 50 91 000C5 5$: CMPB RO, #2 : 0770 

46 12 000C8 BNEQ : 

00000000G 8F DD OOOCA PUSHL #ANLOBJS_EXEHDRTIYPELIM ; 

02 DD 000D0 PUSHL #2 3 

02 DD 000D2 PUSHL #2 : 
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03 FB 00004 CALLS #3, ANLSFORMAT_LINE : 
34 {1 DOD itt PUSHL 36 zn : 0771 
000000006 8F DD OOODA PUSHL M#ANLOBJ$_EXEHDRGBL IDENT : 
3 DD BoES PUSHL #3 : 
6 Of PB ooEs Cee 4) ANLSFORMAT LINE : 
50 23. AB 8 99 EF OO0E7 EXT2vV #0, #3, 35(R3)> RO : 0778 
0 D1 OOOED CMPL RO, #3 ; 077 
14 1A OOOF BGTRU 6$ 3 
0000°CF40 DD OOF PUSHL MATCH_CONTROL[ROJ : 0777 
000000006 8F DD 000F PUSHL #ANLOBJ$_EXEHDRMATCH 3 0776 
3 DD OOOFD PUSHL #3 : 
E 04 OOOFF CLAL -(SP) : 
68 04 FB 00101 CALLS #4, ANLSFORMAT_LINE : 
15 11 00104 BRB 9$ : 
50 DD 00106 68: PUSHL RO : 0778 
000000006 8F DD 00108 PUSHL M#ANLOBJ$_EXEBADMATCH : 
08 11 OO10€ BRS 8S : 
50 DD 00110 7$: PUSHL RO ; 0781 
000000006 &8F ODD 00112 PUSHL #ANLOBJ$_EXEBADTYPE : 
A 08 FB 00118 8$: CALLS #2, ANLSFORMAT_ERROR : 
1¢ «6 AS) «BS 00118 9S: TSTW 28(R3) : 0786 
OF 12 OO1'E BNEQ : 
000000006 8F DD 00120 PUSHL #ANLOBJ$_EXEHDRCHANDEF : 0787 
02 DD 00126 PUSHL #2 : 
ze D4 00128 CLRL -(SP) : 
68 03 FB O012A CALLS #3, ANLSFORMAT_LINE ; 
11. 11 00120 BRB 11$ ; 
7E 1¢ «6A 3C O01e 108: MOVZ2WL 28(R3), =(SP) : 0789 
000000006 8F DD 00133 PUSHL M#ANLOBJ$_EXEHDRCHANCOUNT : 
02 DD 00139 PUSHL #2 : 
7E 04 00138 CLRL -(SP) : 
68 04 FB 0013D CALLS #4, ANLSFORMAT_LINE : 
1€ A3 B5 00140 118: TSTw 30(R3) : 0793 
OF 12 00143 BNEQ 12$ ; 
000000006 8F DD 00145 PUSHL #ANLOBJ$_EXEHDRPAGEDEF 5 0794 
02 DD 00148 PUSHL #2 ; 
7E D4 00140 CLRL -(SP) : 
68 03 FB O014F CALLS #3, ANLSFORMAT_LINE 3 
11. 11 00152 BRB 1 : 
7E 1€ AS’ 3C 00154 128: MOVZWL 30(R3), (SP) + 0796 
000000006 8F DD 00158 PUSHL M#ANLOBJ$_EXEHDRPAGE COUNT 5 
02 DD 0015E PUSHL @ 3 
7E D4 60160 CLRL -(SP) : 
68 04 FB 00162 CALLS #4, ANL$FORMAT_LINE ; 
0000" CF 9F 00165 138: PUSHAB LINK_FLAGS_DEF ; 0800 
7€ 20 «=A 00 EF 00169 EXTZV #0, B24, 32(R3), =(SP) : 
000000006 8F DD 0016F PUSHL M#ANLOBJ$_EXEHDRFLAGS ; 
02 DD 00175 PUSHL @# $ 
0000G CF 04 FB 90177 CALLS #4, ANLSFORMAT_FLAGS ; 
0000' CF OF 0017C PUSHAB LINK FLAGS DEF ; 0801 
7€ 20 00 EF 00180 EXTZV #0, B24, 32(R3), -(SP) : 
00006 CF 08 FB 00186 CALLS #2, ANLS$CHECK_FLAGS : 
28 AS’ D5 0018B TSTL. © &OCR3) + 0805 
12 13 0018E BEQL 14$ : 
28 «6A3s) OF 00190 PUSHAB 40(R3) : 0806 
04 DD 00193 PUSHL #4 : 
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000000006 BF DD C0195 PUSHL #ANLOBJS_EXEHDRSYSVER : 

ve DD 00198 PUSHL #2 : 

—E D4 0019D CLRL -(SP) : 

68 05 FB 0019F CALLS #5, ANLSFORMAT_LINE 3 
52 02 a3 3C OO1A2 148: MOVZWL 2(R3), R2 ; 0811 

52 53 CO O01A6 ADDL2 R3, Re : 

50 2C «AS SE OC1A9 MOVAB 44(R3), RO : 

50 52 D1 OO1AD CMPL R2, RO : 

06 1B 00180 BLEQU 1 : 
56 2c =6A3)—s=D0 ~(00182 MOVL 44(R3), FIXUP_ADDRESS 3 0812 

02 11 00186 BRB 16$ : 
56 D4 00188 15$: CLRL FIXUP_ADDRESS : 0814 
08 6B £9 O00O1BA 16$: BLBC ANL$GB_INTERACTIVE, 17% : 0818 
0000G CF 00 FB 00138D CALLS #0, ANCSINTERACT : 0819 

5E 50 €9 001C2 BLBC RO, 19$ : 
7E 01 CE 001C5 17$:  MNEGL #1. -(SP) 3 0824 

69 01 FB 001C8 CALLS #1, ANLSREPORT_LINE : 
000000006 8F DD 001CB PUSHL #ANLOBJ$_EXEHDRACTIVE 3 0825 

01 DD 00101 PUSHL #1 : 

03 DD 001D3 PUSHL #3 : 

68 03 FB 001D5 CALLS #3, ANLS$FORMAT_LINE : 
7E 01 CE 00108 MNEGL #1, -(SP) : 0826 

69 01 FB 001DB CALLS #1, ANLSREPORT_LINE 3 
62 DD OOIDE PUSHL (SP) ; 0832 

00000000G &F DD O01E0 PUSHL #ANLOBJS$_EXEHDRXFER1 : 

02 DD O01E6 PUSHL #2 : 

7E D4 OO1EB CLRL -(SP) 3 

68 04 FB OO1EA CALLS #4, ANLSFORMAT_LINE : 
04 A2 ODD OO1ED PUSHL 4(SP) : 0833 

000000006 8F DD 001FO PUSHL #ANLOBJS$_EXEHDRXFER2 3 

02 DD 001F6 PUSHL #2 : 

7E D4 OO1F8 CLRL -(SP) s 

68 04 FB OOIFA CALLS #4, ANLSFORMAT_LINE : 
08 A2 Db OO1FD PUSHL 8(SP) > 0834 

00000000G 8F DD 00200 PUSHL #ANLOBJ$_EXEHDRXFERS $ 

02 DD 00206 PUSHL #2 3 

7E D4 00208 CLRL -(SP) : 

68 04 FB O0020A CALLS #4, ANLSFORMAT_LINE : 
Oc A2 D5 0020D TSTL 12(SP) ; 0838 

09 13 00210 BEQL 18$ . 
00000000G BF DD 00212 PUSHL #ANLOBJ$_EXEBADXFERO ; 0839 

6A 01 FB 00218 CALLS #1, ANLSFORMAT_ERROR : 
08 6B €9 00218 18%: BLBC ANL$GB_INTERACTIVE, 208 > 0843 
0000G CF 00 FB Ooe tt CALLS #0, ANCSINTERACT 3 0844 

65 50 €9 00223 19$: BLBC RO, 3 
7E 01 CE 00226 20%: MNEGL #1, -(SP) : 0849 

69 01 FB 00229 CALLS #1, ANLSREPORT_LINE 3 
00000000G BF DD 0022C PUSHL M#ANLOBJS_EXEHDRSYMDBG ; 0850 

01 DD 00232 PUSHL #1 : 

03 DD 00234 PUSHL #3 : 

68 03 FB 00236 CALLS #3, ANLSFORMAT_LIWE 3 
7E 01 CE 00239 MNEGL #1, -(S9) ; 0851 

69 01 FB 0023C CALLS #1, ANL$REPORT_LINE : 
52 04 Ad 3C Bos 7 MOVZWi 4(R3), SP > 0853 

52 53 cO 00243 ADDL2 R3, SP : 
7E 08 A2 3C 00246 MOVZWi 8(SP), -(SP) ; 0857 

62 DD 0024A PUSHL (SP) : 
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O0000C00G BF DD 00 25 PUSHL #ANLOBJS_EXEHDRDST 3 
02 OD 38 5 PUSHL # : 
3 D4 00254 CLRL -(SP) : 
68 05 FB 00256 CALLS #5, ANLSFORMAT_LINE ; 
7E OA Ag 3C 00259 MOVZ7WL 10(SP), -(SP) ; 0861 
04 A2 DD 0025D PUSHL 4(SP) : 
O0000000G BF DD 00260 PUSHL #ANLOBJS_EXEHDRGST : 
02 DD 00266 PUSHL #2 3 
7E D4 00268 CLRL -(SP) ; 
68 05 FB 0026A CALLS #5, ANLSFORMAT_LINE : 
11 20 «AS 0S €1 0026D BBC #5, 32(R3), 218 ; 0865 
7£ Oc A2 7D Oe re MOVO 12(SP), =(SP) : 0867 
O0000000G BF DD 00276 PUSHL #ANLOBJS_EXEHDRDMT : 
02 dD 0027C PUSHL #2 3 
7E D4 O0027E CLRL -(SP) : 
¥ 0S FB 00280 CALLS #5, ANLSFORMAT_LINE : 
68 £9 00283 21$: BLBC ANL$GB_INTERACTIVE, 23% 3; 0871 
0000G CF 00 FB 00286 CALLS #0, ANCSINTERACT 3 0872 
03 50 £8 00288 22$: 8.BS RO, 23$ : 
O23— 31 0028E BRw 4 : 
7E 01 CE 00291 23%: MNEGL #1, -(SP) 3; 0877 
69 01 FB 00294 CALLS #1, ANL$REPORT_LINE ; 
00000000G 8F DD 00297 PUSHL #ANLOBJS_EXEHDRIDENT ; 0878 
01 OD 00290 PUSHL #1 : 
03 DD 0029F PUSHL #3 : 
68 03 FB 002A1 CALLS #3, ANLSFORMAT_LINE : 
7E 01 CE O02A4 MNEGL #1, ~(SP) ; 0879 
$9 Q1 FB 002A7 CALLS #1, ANLSREPORT_LINE ; 
52 06 A3 3C OO2ZAA MOVZWL 6(R3), SP ; 0881 
52 53 CO O02AE ADDL2 3, SP : 
54 01 A2 YE 00281 MOVAB 1(R2), RS : 0897 
55 28 Ae YE 00285 MOVAB 40(R2), RS : 0899 
oc A 10 00 ED 00289 CMPZ7V #0, #16, 12(R3), V3_MAJORID ; 0892 
OA 14 002C1 BGTR 4 : 
O& A3 10 00 ED 002c3 CMPZ2V = #0, #16, 14(R3), V3_MINORID ; 0893 
45 15 002CB BLEQ 6-25 ; 
52 DD O02CD 248: PUSHL SP : 0896 
00000000G 8F ODD ttt PUSHL #ANLOBJ$_EXEHDRNAME F 
02 00 00205 PUSHL #2 : 
7E 04 00207 CLRL -(SP) 3 
68 04 FB 00209 CALLS #4, ANLSFORMAT_LINE 3 
04 AE 62 9A 002DC MOVZBL (SP), NAME_DSC ; 0897 
08 AE 54 DO 002E0 MOVL R4, NAME_DSC+4 ; 
27 DD O02E4 PUSHL #39 ; 0898 
08 AE 99F 002E6 PUSHAB NAME _DSC : 
0000G CF O02 FB 002E9 CALLS #2, ANLSCHECK_SYMBOL : 
55 DD OO2EE PUSHL R5 ; 0899 
000000006 8F DD 002F0 PUSHL #ANLOBJS_EXEHDRFILEID ; 
02 DD 002F6 PUSHL #2 3 
7E D4 002F8 CLRL -(SP) i 
68 04 FB OO2FA CALLS #4, ANLSFORMAT_LINE : 
38 A2 OF BReLe PUSHAB 56(SP 3; 0900 
000000006 8F DD 00300 PUSHL #ANLOBJS$S_EXEHDRTIME 2 
02 DD 00306 PUSHL #2 ; 
7E 04 00308 CLRL -(SP) ; 
68 04 FB GO30A CALLS #4, ANLSFORMAT_LINE : 
40 0039D PUSHAB 64(SP) 3 0901 


bP 
me 
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$3 bp bosi> 258:  pusm Se" : 0905 

000000006 8F ODD 00 14 PUSHL #ANLOBJ$_EXEHDRNAME ; 

Ge DD OO3IA PUSHL #2 : 

—E D4 Bae CLRL -(SP) 3 

6® 04 FB OOSIE CALLS #% ANL SF ORMAT LINE : 
04 AE 62 9A 00321 MOV ZBL (SB) AME _DSC™ 3 0906 

OB AE 54 D0 00325 MOVL WaMe DSC +4 : 
2? DD 00329 PUSHL ; 0907 

08 AE 9F 00328 PUSHAB s 

0000G CF 02 FB OO ees CALLS a2 ENC SCHECK_ SYMBOL ; 
10 A2 9F 0033 PUSHAB 16(SP) : 0908 

00000000G 8F DD 00336 PUSHL #ANLOBJS_EXEHDRFILEID é 

02 DD 00335C PUSHL #2 é 

7E D4 0033E CLRL -(SP) : 

68 04 FB 00340 CALLS #4, ANLSFORMAT_LINE : 
20 A2 YF 00343 PUSHAB 32(SP) ; 0909 

00000000G 8F DD 00346 PUSHL M#ANLOBJS_EXEHDRTIME : 

02 DD 0034C PUSHL #2 : 

7E D4 0034E CLRL -(SP) s 

68 04 FB 00350 CALLS #4, ANLSFORMAT_LINE : 
55 DD 00353 PUSHL : 0910 

00000000G 8F DD 00355 26$: PUSHL #ANLOBJ$_EXEHDRLINKID | 

02 DD 0035B PUSHL #2 2 

7E D4 0035D CLRL -(SP) 3 

68 04 FB 0035F CALLS #4, ANLSFORMAT_LINE : 
08 6B £9 00 36¢ BLBC ANL$GB ad 34 278 : 0917 
0000G CF 00 FB 0036 CALLS #0, ANCSINTE ; 0918 

03 50 fe 0036A BLBS RO, 27$ : 

O1SF 1 0036D BRW 2 
7E 01 CE 00370 27$: MNEGL #1, -(SP) 3; 0923 

69 01 FB 00373 CALLS #1, ANLSREPORT_LINE : 
00000000G 8F DD 00376 PUSHL #ANL OB $_EXEHDRPATCH 3; 0924 

01 DD 0037C PUSHL #1 3 

03 DD O0037E PUSHL a3 : 

68 03 FB 00380 CALLS #3, ANL $F ORMAT “LINE 3 
7E 01 CE 00383 MNEGL #1, -(SP) : 0925 

69 01 FB 00386 CALLS #1, ANLS$REPORT_LINE : 
08 A3 B65 00389 TSTwW 8(R3) : 0927 

7E 13 0038C BEQL 28$ ; 
52 08 A3 3C OO38E MOVZWL 8(R3), SP : 0928 

52 53 CO 00392 ie. 83. 3 : 
7E 04 A2 7D 00395 MOVQ 4(SP), =(SP) : 0932 

62 DD 00399 PUSHL (SP) : 

000000006 8F DD 00398 PUSHL #ANLOBJ$_EXEHDRDECECO 3 

02 DD 003A1 PUSHL #2 ; 

7E D4 003A3 CLRL -(SP) ; 

68 06 FB 003A5 CALLS #6, ANLSFORMAT_LINE ; 
OC A2 DD 003A8 PUSHL 12 > 0936 

00000000G 8F DD O003AB PUSHL #ANLOBJ$_EXEHDRUSERECO : 

02 OD 00381 PUSHL #2 : 

7E D4 00383 CLRL -(SP) : 

68 04 FB 00385 CALLS #4, ANLSFORMAT_LINE : 
10 A2 DD 00388 PUSHL 16(SP) : 0940 

14 A2 DD 00388 PUSHL 20(SP) : 

00000000G 8F DD O0O3BE PUSHL M#ANLOBJS$_EXEHDRRWPATCH : 

02 0034 PUSHL #2 ; 
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43 D4 903¢6 CLAL -(SP) : 
68 05 FB 003¢8 CALLS #5, ANLSFORMAT_LINE : 
18 A DD pace PUSHL 24(SP) ; 0941 
1¢ Ad DOD OO3CE PUSHL 28(SP) : 
000000006 8F DD 00301 PUSHL M#ANLOBJ$_EXEHDRROPATCH : 
02 OD 80307 PUSHL #2 : 
if D4 00309 CLAL -(SP) : 
68 05 FB 00308 CALLS #5, ANLSFORMAT_LINE : 
20 A2 DD 00%3DE PUSHL (SP) : 0945 
00000000G 8F DD 003E1 PUSHL #ANLOBJS_EXEHDRTEXTVBN : 
be DD 003E7 PUSHL #2 : 
E D4 003€9 CLAL -(SP) : 
68 04 FB OO3EB CALLS #4, ANLSFORMAT_LINE : 
24 A2 9F OOSEE PUSHAB 36(SP) ; 0949 
00000000G BF DD 003F1 PUSHL #ANLOBJS$_EXEHDRPATCHDATE 3 
02 DD 003F7 PUSHL #2 3 
7E DS 003F9 CLAL -(SP) : 
68 04 FB 003FB CALLS #4, ANLSFORMAT_LINE 3 
18 6B £9 OO3FE BLBC ANL$GB INTERACTIVE, 29% 3 0953 
0000G CF 00 FB 00401 CALLS #0, ANCSINTERAC : 0954 
10 50 £8 00406 BLBS RO, 29$ : 
00c3 1 00409 BRw 41 : 0955 
00000000G 8F DD 0040C 28$: PUSHL #ANLOBJ$_EXEHDRNOPATCH ; 0960 
02 DD 00412 PUSHL = 3 
7E D4 00414 CLRL P) : 
68 03 FB 00416 CALLS a3. Aa. OF ORAAY _LINE : 
OC BC D4 00419 298: CLRL af [xu 3 0967 
08 BC D4 0041C CLRL at IXUP> NHL ; 
7€ 01 CE OO41F MNEGL -(5P) ; 0969 
69 01 FB 00422 CALLS a ANLSREPORT_LINE ; 
00000000G 8F DD 00425 PUSHL #ANLOBJ$ _EXEHDRISD 3; 0970 
01 DD 00428 PUSHL #1 : 
03 DD 0042D PUSHL #3 $ 
68 03 FB 0042F CALLS #3, ANLSFORMAT_LINE ; 
54 01 00 00432 MOVL #1, VBN 3: 0972 
53 01 DO 00435 MOVL #1, ISD 3; 1015 
SE DD 00438 30$: PUSHL SP 3: 0979 
0000G CF 01 FB 0043A CALLS #1, ANLSGET_ISD : 
57 50 DO 0043F MOVL RO, STATU : 
08408640 —s_«-BFF 57 Di 00442 CMPL STATUS, #139298368 ; 0984 
25 13 00449 BEQL 33$ ; 
54 D6 00448 INCL VBN : 0986 
04 57 E8 0044D BLBS STATUS, 31$ ; 0987 
57 DD 00450 PUSHL STATUS ; 0988 
19 11 00452 BRB : 
52 6— DO 00454 31$: MOVL ; 0991 
50 6E 52 C3 00457 SUBL3 RO ; 0997 
50 0200 (CO 9SE 00458 MOVAB sch RO : 
50 62 10 00 ED 00460 CMPZvV = #0 a6. (SP), RO : 
0B 1B 00465 BLEQU 34$ ; 
00000000G 8F DD 00467 PUSHL one. 00% EXEHDRISDLONG ; 0998 
6A Q! FB 0046D 32$: CALLS ANLS$FORMAT_ERROR 3 
9 11 00470 33$: BRB 3; 0997 
OC BB 00472 34$: PUSHR +e R2,R3> ; 1004 
OO00v CF 2¢ FB 00474 CALLS #2, ANC SIMAGE _1SD F 
01 5 Di 00479 CMPL IS 6. @ #) ; 1009 
0B 12 0047C BNEQ 35$ : 
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50 046 = A2 1 0 gf 0047€ EXTZV #0 - a1, 4(SP), 
06 «BC 5 9 00484 ASHL R ainace “BASE 
6 D 00489 35$: TSTL fT Thur. ADDR 
‘ 1 0488 BEQL 
50 04 8 17 gf 004 EXTZ2v #0, #23, 4(SP), RO 
5 59 9 78 0049 ASHL #9, RO, 
50 6 D1 0049 CMPL = FIXUP_ADDRESS, RO 
1 12 OO49A BNEQ 
02 A2 65 0049C TSTWw (SP) 
0 13 0049F BEQL 6$ 
OC A2 05 004A TSTL 1e(SP) 
B 12 Q04A4 BNEQ 37$ 
00000000G BF DD O004A6 36S: PUSHL MANLOBJ$_EXKEBADF I xUPISD 
6A 1 FB Q06AC CALLS #1, ANLSFORMAT_ERROR 
A 11 OO4AF BRB a$ 
08 BC 02 A2 3C 00481 37%: MOVZWL BE af IxuP wt 
OC BC OC A2 DO 00486 MOVL 12(SP), aFIXUP y 
08 6B £9 00488 38$: BLBC ANL$GB “INTERACTIVE, 39$ 
0000G CF 00 FB O04BE CALLS #0, ANCSINTERACT 
09 50 £E9 004C3 BLBC RO, 41$ 
53 D6 004(6 398: INCL ISD 
FF6D 31 004C8 BRw 30$ 
50 01 DO 004CB 408 MOVL #1, RO 
04 004CE RET 
50 D4 OO4CF 41$: CLAL RO 
04 00401 RET 


3 Routine Size: 1234 bytes, Routine Base: $CODE$ + 0000 
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1035 1 Asbttl *ANLSIMAGE_ISD = Analyze ISD Structure® 
; i Functional Description: : 
his routine is responsible for formatting and analyzing an 
Image Section Descriptor. 


PVPS 


OW NA WE WN $0 OD NAVE WN (OO ONO MEW OO OOBNOUE Ww 


: Formal Parameters: 
the_isd Address of the ISD. 
isd_number The sequence number of this ISD. 
Implicit Inputs: 
global data 
global data 


! Returned Value: 
none 


Side Effects: 


' 

i 
' 

! 

i 

' 

i 

' 

; 

. Implicit Outputs: 
' 
ie 


global routine anlSimage_isd(the_isd,isd_number): movalue = begin 
bind 


PAXAEMAAMAA AAI 
WR 0 OONA WEN" OOODVNOUE WN "0 0O@ 


sp = the_isd: ref block({,byte]; 


DUD DV DEPP DVIV LV SIVLVSUPULVIIILV SIV SVUSUSTSII ISTITUTO 
MAPARMMMA NUE SERRE EE POw 
oad 
SOODCOCOCOVOCOOCOCCCOOCOOOoOooO OOoOoo0Coo 
SSFSSES FRRREREKEK 


a ee ee ee LL LL LLL 


PROPPOPMOPINIADPYDINNINININYIAINPYIDPIPINYIPYNGAIPYPIDIPININIPININID 4 9 2 9 9 8 OO 


Be Be Be Oe Be Be Ss Se Be Be Oe Se Se Be Ge Be Ss Se Se Ge Be Ge Se Se Be Se Se Se Se Ge Se Se Ss Se Se Se Se Ge Se Se Se Se Se Se Se Se Ss Ss Se Ge Ss Ss Oe Se Be Se we 


4 own 

5 space_names: vector([4,long] initial ( ; 

6 uplit byte (Zascic *PQ"), 

7 uplit byte (Zascic 'P1"), 

8 uplit byte (Zascic *S0") 

069 uplit byte (%ascic 'S1723")), 
071 isd_fiags_def: vector[20,long] initial ( 

560 072 is, 
561 073 uplit byte(Zascic *‘ISD$V_GBL"), 
562 074 uplit byte(Zascic "ISD$V_CRF') 
563 075 uplit byte(Zascic "ISD$Vv~DZRO'S, 
eee B78 uplit byte(Zascic "ISD$V_WRT"), 
566 078 uplit byte(Zascic ‘ISD$V_LASTCLU"), 
567 079 uplit byte(Zascic *ISD$V_COPYALWAY"), 
568 080 uplit byte(Zascic ‘ISD$V_BASED'), 
569 081 uplit byte(Zascic "ISDSV_FIXUPVEC"), 
570 082 J,0,0, 6 o . 
571 083 uplit byte(Zascic ‘ISD$SV_VECTOR' 
276 Oee uplit byte(Zascic "ISD$V_PROTECT')), 
574 086 isd_types: vector[5,long] initial( : 
575 087 uplit byte (Zascic "NORMAL'), 
576 088 uplit byte (Zascic ‘SHRFXD"), 
577 089 uplit byte (Zascic ‘PRVFXD'), 
578 090 uplit byte (Zascic ‘SHRPIC*) 
579 091 uplit byte (Zascic "PRVPIC')S; 


Be Be Be Oe Be Be Oy Be we Se Gy Be Be Se Be Se Se Fe Se Fe Se Be Se Se Se Se Se Oe Os Se Be Se Se Ge Se Ge Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se we 


cael 


589 


ooOoovoo 


SSLESRENSS 


PUPP SIPS 
oo 


600 


AAAASAAAGRAAAO 


MMM 


624 
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1 
1998 local 
1094 blk_ptr: ref blockl, byte], 


long_.u = 0, 0, 32, 0 %; 


! It is assumed that the ISD fits in the header block. We can freely 
! reference the fields. 


ieee status; 
39 Literal 
9 section_suffix_size = 4, 
, long.c = 4; 
0 macro 
0 
0 
0 
0 


! Begin with a heading Line for this ISD. 


an($report_line(-1); ; 
anl$format_line(3,2,anlobj$_exehdrisdnum,.isd_number,.splisd$w_size]); 


! Analyze the page count. 
anl$format_lLine(0,3,anlobj$_exehdrisdcount,.splisd$w_pagcnt]); 

! Analyze the base virtual page number and space bits. 
anl$format_line(0,3,anlobj$_exehdrisdbase,.splisd$v_vpg]°9,.space_names{.sp[4,21,2,0]]); 
if .splisd$v_p1] and .spLisd$v_system] then 
an\$format_error(anlobj$_exebadisds1); 

! Analyze the page fault cluster size. 

if .splisd$b_pfc] eqlu 0 then : : 

ant $format_line(0,3,anlobj$_exehdrisdpfcdef) 

else 

anl$format_line(0,3,anlobj$_exehdrisdpfcsiz,.splisd$b_pfcJ); 
! Analyze the ISD flags, ignoring the match control bits. 


anl$format fiagets.gnee ie exehdrisdflags,.splisd$l_flags] and %x"OOffff8f*, isd_flags_def); 
anl$check_Tlags(.splisd$l_flags] and %x OOfttf8t', isd_f ags_def); 


! Analyze the ISD type code. 


selectoneu .splisd$b_type] of set ; j ; : 
0 to 4): ani $format_line(0,3,anlobj$_exehdrisdtype,.isd_typesl(.splisd$b_type]]); 


Cisd$k_usrstack]: anl$format_line(0,3,anlobj$_exehdrisdtype,upiit byte (Zascic ‘USRSTACK")); 


Cotherwise): anl$format_error(anlobj$_exebadisdtype,.splisd$b_type]); 
tes; 


! If this is a demand-zero section, we are done. 
if .splisd$v_dzro) then ( 


if .Splisd$w_size] gtru ( 
if .Splisd$v_gbl] then isd$c_maxlengibi 


a a a a a a ee ee ee eee ee ee ee ee LLL. 
ee ee ee em a ee ee et et el lt a el el ed ld ad ed od od COCO 


oO 


DUP PNPININGAIPNNPNINONIPYPTPNIPUNIPIPIPIPINPIPININPINIPNIPINININIPINY 
oo 


RPE EEE 8 AWA NIWN WIRD RINIPININ 2 2 OOO OO OO KO 


tee 


nm 
= 
mn 
“ 
— 
” 


— 


Be Se Oe Oe Se Oe Be Se Be Ge Se Be Se Be Se Se Be Se Se Se Se Se Se TH Se Se SH Se Ge Ge Se Oe Oe Se Se Oe OF Ss Ss Oe Se Ss Se Se Se Se Ss Se Se Se Os Ss Oe oe Ss Os we 
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crn 
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pon 
| 


* else isd$c_lendzro) 
en 

ani $format_error(anlobj$_exeisdlendzro); 
, return; 


! Analyze the base VBN. 
an\$format_Line(0,3,anlobj$_exehdrisdvbn,.splisd$i_vbnJ); 


Before we leave, let's see if this ISD points to an indirect message 

file. If so, print out this filename. To check this, the vector and 
protect ie must be set, and the page count is 1. [f the page count 

is greater than 1, this 1§D is probably a “‘direct’’ message section in 
which the messages in text have spanned more than one block, so don’t 
bother yin we only want indirect. Then reading the VBN which 

this ISD points to, the type field will tell if it's a privileged sharable 
image or a user written system service, or a message section. Only if it 
is an indirect message section, is any further information given. 


Hs -splisd$v_vector] and .splisd$v_protect] and (.splisd$w_pagcnt] eqlu 1) 
en 


begin 
status = anl$get_image_block( .splisd$l_vbnJ, blk_ptr ); 
if not .status 


3 

3 

3 then 

3 return (.status); 
3 if .blk_ptrfpiv$l_type ] eqlu plv$c_typ_msg 
3 then 

4 

4 

4 

5 

5 

5 

5 

5 

5 

4 

3 

2 

r4 

3 


begin 
bik ptr = .blk ptr + $byteoffset(plv$l_usrundwn) ; 
white -blk_ptrElong_u] nequ 0 do 
egin 
bind msc_ptr = .blk ptr + .blk_ptrLlong_u] : blockl,bytel; 
7 -msc_ptrl msc$b_type ] eqlu msc$c_ind 
en 
anl$format_line(0,3,anlobj$_indmsgsec.msc_ptrimsc$b_indnamien]); 
ete ptr = .blk_ptr + long_c; ! Add the size of a longword 
end; 
end; 
end; 


! If this ism*t a global section, we're done. 
if not “sol isdéy_ gpl] then ( : ; 
if .splisd$w size] gtru isd&c_lenpriv then | 
anl$format_error(anlobj$_exeisdlenpriv); 
return; 
; 
! Analyze the global section identification. 
anl$format_lLine(0,3,anlobj$_exehdrgblident,.splisd$l_ident]); 


! Analyze the match control. 


et ee ee el el et el el cael el el ell el eel el eel eel el eel el el el ll 


FDPIR at st st ss eh ed ed 
WE WN 0 OO NA WE WN 0 ODNO VE WN $0 ODNOUES WR (OOOO MU FWNR —OOODNOUFWN OO” 


SOOOCSOSO OOO OOOO O OW WWW WW 60 WW 0 NII NN SN NN NN NOAA AAA AAA Wnt & 


selectoneu .splisd$v_matchcti) of set 


Bue 


Be Se Ge Ge Oe Oe Se Se Be Se Se Se Se Se Se Ge Se Se Ge Se Se Ge we Se Ss Se ae 


SNS NNN SS NSN NSS 
COWOBNOV EWN oO 
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1 06 Cisd$k_matall, 
120 isd$k_matequ, 
120 isd$k_matleq 
: 4 isd$k“matnev): an\$format_line(0,3,anlobj$_exehdrmatch, .match_control(.splisd$v_matchcti]]); 
: 19 beg iechtced anl$format_error(anlobj$_exebadmatch,.splisd$v_matchctl]); 
es; 
121 
: 13 ! Analyze the global section name. 
1 18 anl$format_line(0,3,anlobj$_exehdrisdgbinam,spLisd$t_gbinam]); 
121 begin 
1218 Local 
: i name_dsc: descriptor; 
1 $f build Sosce tptor (name 6064080) 60-0.8.02 sp(21,0,8,0)); | 
1 $§ anl$chieck_symbol (name_dsc, s ($cmaxnam(ng+sect on_suffix_size); 
1sse § fre 
1$$? ! We are done. 
1227 if .splisd$w size] gtru isd$c_lengibl then 
15s8 an\$format_error(anlobj$_exeisdlengbl); 
1280 return; 
1232 1 end; 
-PSECT SPLITS,NOWRT,NOEXE,2 
30 S50 02 00094 P.AAM: .ASCII <2>\PO\ : 
31 50 O02 00097 P.AAN: .ASCII <2>\P1\ : 
30 53 O02 QOO9A P.AAO: .ASCII <2>\SO\ ; 
SF OF «6SF 631) «655 «605 )«=60009D P.AAP ASCII = <5>\S1777\ : 
4C 462 47 SF 56 24 44 53 49 QO9 OQOOA3S P.AAQ ASCII <9>\1SD$V_GBL\ : 
46 52 43 SF 56 246 44 53 49 Q9 QOOAD P.AAR ASCII] <9>\ISDSV_CRE\ ; 
6F 52 SA 46 SF 56 24 44 53 49 OA OQOOB7 P.AAS ASCII <10>\1S0$9_DZRO\ ; 
54 52 57 SF 56 24 44 53 49 O09 OQO0OC2 P.AAT: .ASCII <9>\ISD$V ‘ 
54 53 41 4C SF 56 26 44 53 49 OD OOOCC P.AAU: ASCII] <13>\ISDSU_LASTCLU\ : 
59 50 4F 43 SF 56 24 44 53 49 oF pope P.AAV: .ASCII] <15>\1SD$V_COPYALWAY\ : 
45 $8 41 42 SF 56 24 44 53 49 OB OOOEA P.AAu: ASCII <11>\1SD8V_BASED\ : 
55 58 49 46 SF 56 24 44 535 49 OE OOF6 P.AAX: .ASCII <14>\1SDSV_FIXUPVEC\ : 
546 43 45 56 SF 56 26 44 53 49 OC 00105 P.AAY: ASCII <12>\ISD$V_VECTOR\ ; 
54 4F S52 50 SF 56 26 44 53 49 OD 00112 P.AAZ: .ASCII] <15>\ISDSV_PROTECT\ F 
4C 41 4D 52 GF & 06 00120 P.ABA: .ASCII <6>\NORMALY : 
44 58 46 52 $$ 53 06 00127 P.ABB: .ASCII <6>\SHRFXD\ ‘ 
44 58 46 56 52 50 06 OO12E P.ABC: .ASCI] <6>\PRVFXD\ : 
43 49 50 52 48 53 06 00135 P.ABD: .ASCII <6>\SHRPIC\ : 
43 49 50 56 26 50 06 O0015C P.ABE: .ASCI] <6>\PRVPIC\ 5 
48 43 41 54 53 52 5 55 08 00145 P.ABF: .ASCII <8>\USRSTACK\ : 


-PSECT SOWNS,NOEXE ,2 
0003€ -BLKB 2 


2 
. EXESTUFF exe TUFF = Analyze Various Parts of an Ima 15. $ep-1984 23:49:0 AM-11 Bliss-32 v4. 
| v04=001 MSIRAGE ISD = Analyze 12D Stracture, «| Waakebm lobe Tisoiee  Pamanys snelent store .ose2 


00000000" 00000000° 00000000° 00000000" 00040 SPACE_NAMES: 
ADDRESS P.AAM, P.AAN, P.AAO, P.AAP 
00000012 00050 ISD_FLAGS DEF: 


ONG 
00000000" 00000000* 00000000" 00000000° 00054 =LONG P.AAQ, P.AAR, P.AAS, P.AAT 
00000° 6000 000: 990000 : §009000" 0090 SOD RESS P.AAU, P.AAV, P.AAW, P.AAX 
00000000 00000000 §o00000 000000 $0900 2900009 tied “LONG a hy OM Me he ei ee 
990000" 000000" 00098 ADDRESS P.AAY, P.AAZ 
00000000* 00000000" 00000000* 00000000* 00000000* 000A0 I1SD_TYPES: 


«ADDRESS P.ABA, P.ABB, P.ABC, P.ABD, P.ABE 


-PSECT S$CODES,NOWRT,2 


0OFC 00000 .ENTRY ANLSIMAGE ISD, neve R2,R3,R4,RS,R6,R7 
57 0000G CF 9€ 0000 MOVAB Ma SEORAAT R7 
56 0000" CF 9€ 0000 MOVAB ISD_FLAGS EF 
55 0000G CF 9€ 0000C MOV 1 walt pea Time. R5 
SE 0c ¢€2 00011 SUBL 
7E 01 CE 00014 MNEGL #1, =(SP) 
00006 CF 01 FB 00017 CALLS #1, ANLSREPORT_LINE 
52 04 AC 00 000IC MOVL PR 
7E 62 3¢ 90020 MOVZ2WL (R2), =(SP) 
08 AC DD 00023 PUSHL SD_NUMBER 
000000006 8F DD 00026 PUSHL #ANCOBJ$_EXEHDRISDNUM 
0¢ DD 0002C PUSHL ‘ 
03 OD 0002E PUSHL 
65 05 FB 00030 CALLS 33. ANL $F ORMAT_LINE 
7E 02 A2 3C 00033 MOVZWL 2(R2), =(SP 
000000006 8F DD 00037 PUSHL #ANLOBJ$_EXEHDRISDCOUNT 
03 DD 0003p PUSHL #3 
7E 04 0003F CLRL -(SP) 
65 04 FB 00041 CALLS #4, ANLSFORMAT _LINE 
50 06 A2 02 05 EF 00044 EXT2v #5, 6(R2), RO 
FO A640 DD 0004A PUSHL SPACE NAME S rb) 
50 04 A2 17 00 EF OO04E EXTZv #0, #23, 4(R2), RO 
7E 50 09 78 00054 ASHL #9, P) 
000000006 8F DoD 00058 PUSHL #ANLOBIS. EXEMDRISDBASE 
03 DD 0005E PUSHL a3 
7E 04 00060 CLRL -(SP) 
65 05 FB 0006 CALLS #5, ANLSFORMAT_LINE 
OE 06 Ag 05 €1 0006 BBC a5, G(R d. 1$ 7 
09 06 =A 06 £1 O006A BBC #6, 
000000006 8F DD 0006F PUSHL PANLOB IS  EvEBADISDS! 
67 01 FB 0007 CALLS #1, ANLSFORMAT_ERROR 
0”? A2 95 00078 1$: 1S1B 7(R2) 
OF 12 00076 BNEQ 2$ 
000000006 8F DD 0007D PUSHL #ANLOBJ$_EXEHDRISDPFCDEF 
03 DD 00083 PUSHL #3 
43 D4 00085 CLRL -(SP) 
65 03 FB 90087 CALLS #3, ANLSFORMAT_LINE 
11 11 OOOBA BRB 3$ 
& 07 A2 9A 0008C 2%: MOVZBL 7(R2) 
000000006 at DD 00090 PUSHL PANC O65. PREHDRISDPFCSIZ 
3 pd 000% PUSHL #3 


1059 


1109 
1110 


1114 


1118 


1119 


1120 


1124 
1125 


112? 
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EXESTUFF EXESTUFF = Analyze Various Parts of an Image 1$-s6 -1984 49:0 AX-11 Bliss-32 v4.0-74 
v06=001 ANLSIMAGE_ISD = Analyze ISD Structure . Fae S08 4 9 $9533:98 PANALYZ SRE EXESTU P-535;2 
7E D6 00098 CLAL -(SP) 
65 4 FB QOO9A CALLS #4, ANLSFORMAT_LINE 
$ 43 090 3%: PUSHL R 
54 08 A2 9E 0009F mOVAR B(R2), RO 
53 64 FF 0000 F CB O0A3 BICL #-16777104, (RG), R3 
3 DD AB PUSHL R 
000000006 &8F DD OO0A PUSHL #ANLOBJS$_EXEHDRISDFLAGS 
3 DD 0008 PUSHL #3 
00006 CF 4 FB 0008 CALLS #4, ANLSFORMAT_FLAGS 
0048 fF BB OOOBA PUSHR #*M<F.3,R6> 
00006 cr FB 0008 CALLS #2. ANL SCHECK_FLAGS 
0 0B A2 9A 990¢ MOVZBL 11(R2), RO 
04 50 91 000¢ CMPB RO, 
06 1A OOOCA BGTRU 4 
50 A640 DD O00CC PUSHL SD_TYPESC(ROJ 
0A 11 00000 BRB 
FD sa 39 91 00002 4$: CMPBséRO, #253 
13 12 00006 BNEQ 68 
0000" CF 9F 00008 PUSHAB P.ABF 
000000006 8F 0D 0000C S$: PUSHL M#ANLOBJS$_EXEHDRISDTYPE 
3 DD 000E2 PUSHL #3 
E 04 000E4 CLRL -(SP) 
65 04 FB 000E6 CALLS #4, ANLSFORMAT_LINE 
0B 11 000E9 BRB 7$ 
50 0D OOOEB 6$ PUSHL RO 
000000006 8F DD O00ED PUSHL #ANLOBJ$_EXEBADISDTYPE 
67 8 FB QOOFS CALLS Ae ANL $FORMAT_ERROR 
1B 64 02 €1 000F6 7$ BBC #2. (R46), 108 
06 64 £9 OOOFA BLBC (Ro), 8S 
5 40 8F 9A OOOFD MOVZBL #64, RO 
03 11 00101 BRB 9$ 
50 OC DO 00103 8$: MOVL #12, RO 
50 62 10 00 €ED 00106 9$: CMP2V #0, #16, (R2), RO 
66 18 00108 BLEQU 15$ . 
000000006 8F oD 0010D PUSHL #ANLOBJ$_EXEISDLENDZRO 
66 11 00113 BRB 16$ 
OC A2 DD 00115 108 PUSHL  12(R2) 
000000006 8F DD 00118 PUSHL #ANLOBJ$_EXEHDRISDVBN 
03 DD OO1IE PUSHL #3 
7E 04 00120 CLRL -(SP) 
65 04 FB 00122 CALLS #4, ANLSFORMAT_LINE 
44 64 11 £1 00125 BBC #17, », 14$ 
40 64 12 £1 00129 BBC #18. (RG). 148 
01 02 A2 61 00120 CMPW 3s 2 (RO), #1 
3A 12 00131 BNEQ 14$ 
— oD 00155 PUSHL 
OC A2 dD 00135 PUSHL  12(R2) 
00006 CF 02 FB 00138 CALLS #2, ANLSGET_IMAGE_BLOCK 
01 0 €8 00130 BLBS STATUS, 11$ 
04 00140 RET 
02 00 BE D1 O14) 11$: CMPL @BLK_PTR, #2 
6 12 00145 BNEQ 4 
6£ 10 CO 00147 ADDL2 #16, BLK_PTR 
00 BE b3 O14A 12%: TSTL @BLK_PTR 
— 13 00140 BE QL 14$ 
50 7E 9E C1 OO14F ADDL3 @BLK_PTR, BLK_PTR, RO 
01 60 91 00153 CMPB (RO)> #1 
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Mm 2 
EXESTUFF EXESTUFF = Analyze Various Parts of an Image 15-Sep-1984 23:49:0 AX-11 Bliss-32 V4.0-76 P 0 
v06-001 ANLS IMAGE _1SD = Anolyze ISD Structure . 1a-8ep-19 4 $7:$3:08 LANALYZ.SRe EXESTUFF .832;2 to (a 
1 12 001 BNEQ 13$ 3 
+4 A oF $188 PUSHAB 8(RO) ; 1185 
000000006 8F DD 00158 PUSHL #ANLOBJ$_INDMSGSEC é 
3 0D 00161 PUSHL #3 3 
E 04 O103 CLRL -(SP) : 
65 04 FB 016 CALL #4, ANLSFORMAT_LINE : 
6€ 04 (CO 00168 13% ADDL ay : 1186 
DD 11 00168 BRB ; 1180 
0D 64 £8 0160 14$ BLBS (R4), 17% 3 1193 
10 $5 B1 00170 CMPW (R2), #16 3 1194 
18 See: 15$: BLEQU r 
00000000G 8F DD Bats PUSHL M#ANLOBJS_EXEISDLENPRIV 3; 1195 
67 11 00178 16$: BRB 3 
10 A2 DD 0017D 17$: PUSHL 16(R2) : 1201 
000000006 8F DD 00180 PUSHL M#ANLOBJS_EXEHDRGBL IDENT 3 
93 DD 00186 PUSHL #3 $ 
E 04 pois CLRL =(SP) 3 
65 4 FB 0018A CALLS #4, ANLSFORMAT_LINE 3 
50 64 03 4 EF 0018D EXTZ7V #4, #3, (RG), RO ; 1205 
03 ° D1 Boles CMPL RO, #5 : 1206 
13° 1A 0019 BGTRU 18 3 
BO A640 0D 00197 PUSHL MATCH _CONTROL[RO] : 1209 
000000006 8F DD 00198 PUSHL #ANLOBJ$_EXEHDRMATCH : 
03 DD OO1Al PUSHL #3 ; 
7E 04 O01A3 CLRL =(SP) ; 
65 04 FB OO1AS CALLS #4, ANLSFORMAT_LINE ; 
0B 11 CO1A8 BRB 19§ ; 
50 DD OO1AA 188: PUSHL RO : 1211 
00000000G 8F DD OOTAC PUSHL #ANLOBJ$_EXEBADMATCH : 
67 02 FB 001B2 CALLS #2, ANLSFORMAT_ERROR 3 
14 A2 9F 00185 198: PUSHAB 20(R2) : 1216 
00000000G 8F DD 00188 PUSHL #ANLOBJS_EXEHDRISDGBLNAM 3 
03 DD 001BE PUSHL #3 : 
7E D4 001C0 CLAL -(SP) ‘ 
65 04 FB Ooice CALLS 4&4, ANLSFORMAT LINE ; 
04 AE 14 A2 9A OOIC MOVZBL 20(R2), NAME_DSC : 1221 
08 AE 15 A2 9E OOICA MOVAB 21(R2), NAME_DSC+4 i 
2B DD OOICF PUSHL #43 3: 1222 
08 AE 9F 00101 PUSHAB NAME_DSC ’ 
0000G CF O2 FB 00104 CALLS #2, ANLSCHECK_SYMBOL : 
B1 00109 CMPW (RO), #36 ; 1227 
09 18 001DC BLEQU 21$ ; 
00000000G 8F DD OO1DE PUSHL M#ANLOBJS$_EXEISDLENGBL : 1228 
67 01 FB poles 208: CALLS #1, ANLSFORMAT_ERROR : 
04 QO1E7 218: RET 3: 1232 


3 Routine Size: 488 bytes, Routine Base: $(CDE$ + 0402 
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Ty NAGE PATER” ze Yortous Ports of an Ima 13-seo-1984 tb $3: 08 AX-11 Bliss-32 Vv4.0- O-743.0 


EXT = Print Image Patch Text 14-Sep-1984 
pas *ANLSIMAGE _PATCH_TEXT = Print Image Patch Text’ 


ANAL YZ.SRC ExestU 83 


! Functional Description: 
his routine is responsible for printing the patch text in the 
analysis report. 


i Formal Parameters: 
none 


i 
' 
i 
' 
' 
' 
: 
! Implicit Inputs: 
global data 
' Implicit Outputs: 
global data 
' 

‘ 

' 

' 

' 

i 


i Returned Value: : 
If interactive session: true if we are to continue, false otherwise. 


i Side Effects: 


global routine anlSimage_patch_text = begin 


local 
bp: ref piocks. »bytel, 
sp: ret block(,bytel, 
pete® vbn: long 
ength: signed Stone. 
na gre long, 


ali 
local described, buffer (out. record.éec,512): 


! The image header patch section has already been checked. If this image 
' doesn't have any patches, then we can leave. 


anl$get_image_header(bp,alias); 

if .bplThd$w_ patchoff] eqlu 0 then 
return true 

sp = bp ¢ ,bplihd$Sw_patchoff); 

if .splinp$l_patcomtxt] eqlu 0 then 
return true; 


! We seem to have patch text. Let's eject the page and start with a heading. 


anl\$report Peo 

anl$format” eb sO-anlobjs_ exepatch); 
anl$report_| 

ani$report_ tine (9): 


! we need the VBN of the patch text. Get the first block. 
patch_vbn = spt inp $l_patcomtxt); 


ani $get_ image_ lock (,patch_vbn, bp); 
sp = .bp; 


3 
EXESTUFF EXESTUFF = Analyze Various Parts of an Image 1B-sep-1986 €3799:08 ponte Bliss-32 veat oss Page 32 
v04-001 ANLSIMAGE_PATCH_TEXT = Print Image Patch Text 14-Sep-1984 11:52:4 ANALYZ.SRCJEXESTUFF .B32;2 (10) 
; 779 1 
; 780 1291 ' OK, now we are going to loop through the patch records in the patch 
>; 781 129 ! text area. We construct each record from the blocks of the image and 
, 7. 129 ! print them. 
we 1294 
3; «6784 163? Loop ( 
: 76 1296 eae 
; (7 1297 : Sit in a loop and build the next patch record. PATCH _VBN is the 
;. far 1298 ! block number we are at. SP points to the beginning of the record, 
: 788 1299 ! which is a length. If not positive, that's the end of the 
> «6789 13500 3 ! patch text. 
: 790 1301 
; 791 1 oe __. length = .spl0,0,16,1); 
a; 130 exitif (.length leq 0); 
is 79 1304 3 
> 794 1305 4 if length nv 255 then ( : 
3; TS 1306 4 anl$format_error(anlobj$_exebadpatchien,255); 
3; 7% 1307 4 exitloop; 
; 797 1308 3 : 
; 798 1309 3 sp = .sp * 2; 
: 799 1310 3 
'3; 800 1311 3 out_record_dscllen] = 0; 
; 801 aig 4 loop ( 
; 802 1313 4 : 
: 803 1314 4 ! If we have run off the end of this block, let's get another. 
; 804 1315 4 
: 805 1316 5 if .sp geqa .bp+512 then ( 
; 806 Sif increment (patch_vbn); 
; 807 1318 5 anl$get_image_block(.patch_vbn, bp); 
; 808 1319 5 sp = .bp; 
; 809 1320 4 ); 
: 810 1321 4 : 
3 «B11 1322 4 ! If we have built the entire record, drop out. 
s 6812 1323 4 See 
is 815 1326 4 exitif (. length eql 0); 
: 814 1325 4 
; 815 1326 4 ! Take as many bytes as we can from this block to build 
; 816 1327 4 ! the record. Adjust things. 
; 67 1328 4 
; 818 1329 4 take = minu(.length, .bp+512-.sp); 
; 8 1330 4 ch$move(.take,.sp, .out_record_dsc(ptrJ+.out_record_dscllen]); 
; 820 1331 4 out_record_dsc(len] = .out_record_dscllen] + .take; 
+2: Set 1332 4 sp = .sp + .take + .take mod 2; 
ase 1333 4 Length = .length - .take; 
82 1334 3 ); 
824 is30 : 
825 1336 3 ! Now we print the record. 
826 1357 3 : : ; 
827 1338 3 anl$format_line(0,1,anlobj$_anything,out_record_dsc); 
828 1339 § ); 
829 1340 = 2 G ; ; 
830 1341 2! If this is an interactive session, let's find out if the user wants to 
831 1306 2 ! continue or quit. 
o38 ! ; : 
83 1344 if .ani$gb_interactive then 
834 1345 return ani$interact() 
835 1346 else 


3 
EXESTUFF = Analyze Various Parts of an Image ese 1984 23:49:0 AX-11 Bliss=-32 V4.0-74 Pa 3 
ANCSIMAGE PATON Text = Print Image Patch Text 14-Sep-1984 #7383528 ANALYZ.SRCJEXESTUFF .B32;2 sal tT 
1347 2 return true: 
1348 2 
1349 1 end: 
07FC 00000 eENTRY ANLS IMAGE PATCH_TEXT, Save R2,R3,R4,R5,R6,- ; 1256 
SE FDFO CE 9€E 0000 MOVAB -528(5P)° SP F 
08 AE 0200 8F 3C¢ 0000 MOVZwL #512, OUT _RECORD_DSC > 1265 
OC AE 10 AE 9E 0000D MOVAB OUT_RECORB_DSC+87 OUT_RECORD_DSC+4 3 
SE DD 00012 PUSHL SP s 1271 
08 AE 9F 00014 PUSHAB BP : 
00006 CF 02 FB 00017 CALLS #2, ANLSGET_IMAGE_HEADER : 
50 04 AE DO 0001C MOVL BP, RO z 1272 
08 AO BS 00020 TSTW 8(RO) : 
OA 13 00023 BEQL 1$ : 
57 08 Ad 3C 00025 MOVZWL 8(RO), SP : 1276 
57 50 ¢cO 00029 ADDL2 RO, SP : 
20 A? D5 0002C TSTL 32(SP) : 1275 
03 12 ppg 1$ BNEQ 2$ : 
00DpB 31 00031 BRW 11$ : 
Q000G CF 00 FB 00034 2$: CALLS #0, ANLSREPORT PAGE : 1280 
000000006 8F DD 00039 PUSHL #ANLOBJS_EXEPATCH : 1281 
7E 7C 0003F CLRO -(SP) : 
00006 «CF 03 FB 00041 CALLS #3, ANLSFORMAT_LINE : 
7E D4 00046 CLRL -(SP) 3s 1282 
0000G CF 01 FB 00048 CALLS #1, ANLSREPORT_LINE : 
7E 04 00040 CLAL -(SP) 3 1283 
00006 CF 01 FB 0004F CALLS #1, ANLSREPORT LINE : 
SA 20 A? DO 00054 MOVL 32(SP), PATCH_VBN : 1287 
04 AE 9F 00058 PUSHAB BP 3; 1288 
5A DD 00058 PUSHL PATCH_VBN : 
0000G CF 02 FB 0005D CALLS #2, ANLSGET_IMAGE_BLOCK : 
57 04 AE DO 00062 MOVL " ; 1289 
56 67 32 00066 3$: CVTWL (SP), LENGTH : 1302 
18 15 00069 BLEQ 3; 13035 
000000F F 8F 56 D1 0006B CMPL LENGTH, #255 ; 1305 
11. 1B 00072 BLEQU 5$ ; 
7E FF BF 9A 00074 MOV7ZBL #255, =-(SP) : 1306 
00000000G 8F DD 00078 PUSHL #ANLOBJ$ _EXEBADPATCHLEN j 
0000G CF Qe FB 0007 CALLS #2, ANLSFORMAT_ERROR : 
F 11 00083 4$: BRB 10$ : 1305 
57 02 CO 00085 5$: ADDL2 #2, SP ; 1309 
' 08 AE B84 00088 CLRW OUT_RECORD_ DSC : 1311 
58 04 AE 00000200 8F C1 00088 ADDL3) #512, BP, RB z 1316 
58 57 D1 00094 6$: CMPL SP, R8 3 
10 1F 00097 BLSSU 7 : 
5A D6 00099 INCL PATCH_VBN > 1317 
06 AE 9F 00098 PUSHAB BP : 1318 
SA DD 0009E PUSHL PATCH VBN : 
0000G CF 02 FB OO0A0 CALLS #2, ANLS$GET_IMAGE_BLOCK ; 
57 04 AE DO 000A5 MOVL BP, SP : 1319 
56 DS OO0A9D 7$: TSTL LENGTH : 1324 
42 13 OOOAB BEQL 9$ ; 


3 
EXESTUFF EXESTUFF = Analyze Various Parts of an Image 13 -seo-1984 $7:53:0 cone Bliss-32 V4.0-74 


v04-001 ANLSIMAGE_PATCH_TEXT = Print Image Patch Text 14=Sep-1 :4 ANALYZ. SRC JEKESTUFF .B32:2 
58 04 AE 00000200 F C1 000~D ADDL #512, BP, RB 
51 7 ¢€3 00086 SUBL SP, RB, RI 
0 6 DO OO0BA MOVL LENGTH, RO 
1 9 D1 90080 CMPL RO, R1 
18 000¢ BLEQU 
50 1 dO 000C¢ MOVL R1, RO 
59 0 B0 99¢ 8$: MOVL RO. TAKE 
50 08 AE c 00¢8 MOV2WL OUT_RECORD_DSC. RO 
50 OC aE C 900¢¢ ADDL OUT“RECORD-DSC+4, RO 
60 67 59 28 00000 Move TAKE, (SP)* (RO) 
08 ag 59 AO 00004 ADDW TAKE, OUT RECORD DSC 
51 5 39 1 00008 ADDL TAKE, SP, 
7E 00 59 1 7A 000DC EMUL #1, TAKE. #0, =(SP) 
50 50 BE 98 78 000E1 EDIV #2, (SP)¢ . RO 
57 51 50 C1 O00E6 ADDL3 RO, RI, S 
56 59 C2 OOOEA SUBL2 TAKE, LENGTH 
AS 11 OOOED BRB 6$ 
08 AE OF OOOEF 9S: PUSHAB OUT_RECORD DSC 
00000000G 8F DD BOOF PUSHL #ANCOBUJ$_ARYTHING 
01 DD O00F PUSHL #1 
7E D4 OOOFA CLRL -(SP) 
00006 CF 06 FB OOOFC CALLS #4, ANLSFORMAT_LINE 
FF62 31 00101 BRw 3$ 
06 0000G CF £E9 00104 108: BLBC ANL$GB_INTERACTIVE, 11% 
0000G CF 00 FB 00109 CALLS #0, ANCSINTERACT 
04 0010 
50 01 DO OO10F 118: MOVL #1, RO 
04 00112 RET 


; Routine Size: 275 bytes, Routine Base: $CODES + O6BA 


BeBe Se Se Be Se Be Se Be Be Se Se Se Be ws Se Se Be Se Se Se Se Ge Be Se Se Se Be 
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EXESTUFF EXESTUFF = Analyze Various Parts of an Image 1b-sep-1984 $3:69:08 oy Bliss-32 v4.0-74 Page 35 
v04-001 ANLSIMAGE_GST = Analyze Global Symbol Table 14-Sep-1984 11:52:46 ANALYZ.SRCJEXESTUFF .832;2 (11) 


: ? : ? : Tsbttl "ANLSIMAGE_GST = Analyze Global Symbol Table’ 
M4 ‘ee 
; beg 1 § 1 ! Functional Description: 5; ; 
> 84 1 ..% This routine is responsible for analyzing the global symbol table 
> 846 1356 1! of a shareable image. We format the information in the report and 
; 845 by) es SB. check its validity. 
3 Bee 1 3 | 
; 8&4 1 1 ! Formal Parameters: 
; ete b>, Jee ae 
; 9 iso, 3 
; 850 1360 1 ! Implicit Inputs: 
>; «851 136) 43 3 global data 
; b26 136¢ 1! : 
; 1365 1°! Implicit Outputs: 
; 8546 1364 1! global data 
s 899 tre : 3 
; 856 1366 1! Returned value: | ; : ; 
; 857 1567 1! If interactive session: true if we are to continue, false if not. 
; 858 +. Be 2 Soe 
; 859 1369 1! Side Effects: 
; 860 1370 1! 
; 861 1371 1 !e- 
3 8 1378 1 
is 8 1373 1 : 
; 864 1374 2 global routine ani$Simage_gst = begin 
3 «865 1375 
; 866 1376 Local 
; 867 1377 bp: ref block({,bytel], 
; 868 1378 2 sp: ref block(,byte], 
; 869 1379 2 gst_vbn: long, 
; 870 1380 § pet. recere counts Long, 
; 871 1381 ength: long, 
ls 872 1382 2 take: long, 
13 875 1383 2 alias, : 
'3; 874 1384 2 local_described_buffer(record_dsc,512); 
is 876 1386 § Pang : 
s Of? 1387 ! The pedal symbol table origin information has already been checked. | 
3 a8 9 2! If this isn't a shareable image or the information is missing, forget it. 
; 880 1390 5 ants ot, image header(bp.alias); | : 
; «881 1391 2 if .bplinds zimgtyped nequ ind$k_lim or .bpLihd$w_symdbgoff] eqlu 0 then 
3 882 1396 v4 return true; 
; 885 1393 2 sp = .bp + .bplihdSw_symdbgoff); 
; 6884 1394 2 if .splihs$l_gstvbn] eqiu 0 then 
; «6885 1395 2 return true; 
; 886 1396 2 : ‘ : 
; rH if at § ! we seem to have a GST. Let's eject the page and start with a heading. 
; 889 1399 2 ent Sroport _peget : 
; 890 1400 2 anl$format_line(0,0,anlobj$_exegst); 
; 891 1401 2 anl$report_line(0); 
3 +4 1006 § anl$report_line(0); 
; 894 1404 § ! We need the VBN of the global symbol table and its record count. Get 
: $32 ithe § ' the first block of the fable. 
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187 gst_vbn = .splihs$i_gstvbn]; 
14 : gst_record_count = .splins m.gepeesets 
140 an\Sget_image_block(.gst_vbn.bp); 
1o19 sp = .bp; 
1216 ! OK, now we are ges to loop through the object records in the global 
1461 : symbol table. We construct each record from the blocks of the image and 
oie ! analyze them using the object file analysis routines. 
1219 incru record number from 1 to .gst_record_count do ( 
1418 ! Sit in a loop and build the next object record. GST_VBN is the 
1419 ! block number we are at. SP points to the beginning of the record, 
1481 ! which is a length. 
14 ; Length = .sp(0,0,16,0); 
14 sp = .sp * 2; 
16 : ; record_dsclien] = 0; 
ee 
1o¢8 : ! If we have run off the end of this block, let’s get another. 
1286 5 if .sp geqa .bp+*512 then ( 
1431 $ increment (gst_vbn); 
1638 5 anl$get_image_Block(.gst_vbn, bp); 
1433 5 sp = .bp; 
1035 : 
1039 ? ! If we have built the entire record, drop out. 
Mees . exitif (. length eqlu 0); 
1440 & ! Take as many bytes as we can from this block to build 
ert : ! the record. Adjust things. 
1208 4 take = minu(.length, .bp+512-.sp); 
1444 4 ch$move(.take,.sp, .record_dsc(ptrj+.record_dscllen]); 
1445 4 record_dscl(len] = .record_dscllen] + .take; 
1446 4 sp = .sp * .take + .take mod 2; 
1447 & length = .length = .take; 
aa 
1450 3 ! Now we can analyze the record, assuming it is a least one byte 
Het j ! in length. Select on its type. 
1438 : if .record_dscllen] gequ 1 then ( 
1455 4 selectoneu_ch$rchar(.record dsc(ptr]) of set 
1238 . Cobj$c_hdr): anl$object_fdr(.record_number,record_dsc); 
1628 : Cobj$c_gsdJ: an $object_gsd(.record_number ,record_dsc); 
saat ? Cobj$c_eom): ant $object_eom(.record_number,record_dsc); 
1462 5 Cotherwise): (anl$format_error(anlobj$_exebadobj,.record_number ,ch$rchar(.record_dsc(ptr] 
1463 4 anl$format_fiex(1,record_dsc);); 
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IMAGE _GST = Analyze Global Symbol Table 1 
tes; 


: Make sure that this record isn’t longer than the maximum size 
: specified in the module header. 


ani $object_record_size(.record_dscLlien]); 
! Skip a couple of Lines to make it look nice. 


ani$report_line(-1); 
anl$report_line(-1); 


: If this is an interactive session, let's find out if the 
! user wants to continue or quit. 


if -anl$qp_ interactive then 
f not anl$interact() then 
return false; 


) else ( 
! There was mo record type. Tell the user. 
an\$format_error(anlobj$_objnullrec,.record_ number) ; 
anl$report_iine(-1); 
an($report_line(-1); 
ds : 


return true; 
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end; 


OFFC 00000 .ENTRY ANL $IMAGE GST, Save R2,R3.R4.R5.R6.R7.R8.- ; 1376 
SE FDEC CE 9€ 0000 MOVAB -532(SP), SP : 
oc AE 0200 8F 3c 0000 MOV2WL #512, RECORD_DSC ; 1384 
10 AE 14 AE 9E 0000D MOVAB  RECORD_DSC+8> RECORD_DSC+4 ; 
04 AE OF 00012 PUSHAB ALIAS : 1390 
Of AE 9F 0001 PUSHAB BP : 
00006 CF 0 FB 00018 CALLS #2, ANLSGET_IMAGE_HEADER : 
50 08 AE 00 00010 MOVL y : 1391 
02 11 AO 91 00021 CMPB 17(RO), #2 : 
03 13 00025 BEQL 2$ 5 
0158 31 00027 1$: BRW 15$ 5 
0 AO 83 0002A 2%: TSTW 4(RO) : 
7 Bese EQL 1$ 3 
57 06 Ad 3C 0002F MOV2WL 4(RO), SP + 1393 
57 50 CO 00033 DDL2 RO, SP : 
06 A? D3 909 TSTL 4(§P) + 1394 
EC 13 00039 BEQL 1$ : 
00006 CF 00 FB 00038 CALLS #0, ANLSREPORT PAGE : 1399 
00000000G 8F DD 00040 PUSHL #ANLOBJ$_EXEGST ; 1400 
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ANLSIMAGE Ge? - Analyze Global Symbol Table 10=803-198e $7593 :28 LANALYZ-SRe EXESTUFF .832;2 al TED, 
7— 7C 0006 CLRO -(SP) : : 
00006 CF 9 FB Bo9e8 CALLS #3, ANLSFORMAT_LINE ; 
f DS 00040 CLRL - 3 1401 
0000G CF 9 FB OOOGF CALLS #1, ANLSREPORT_LINE : 
f D4 0094 CLRL. (été SP : 1402 
00006 0 FB 0056 CALLS #1, ANLSREPORT_LINE : 
e< OF 0058 vi = 48), GST_VBN + 1407 
6£ A A7 3C 0005F MOVZ2WL 10(SP5, GST_RECORD_COUNT : 1408 
08 AE SF 00063 PUSHAB BP : 1409 
58 0D 30068 PUSHL  GST_VBN : 
0000G CF 02 FB 00068 CALLS #2, ANLSGET_IMAGE_BLOCK : 
57 08 At DO 30090 MOVL a ; 1410 
58 0 0 00071 MOVL #1, RECORD_NUMBER : 1416 
0103 31 00074 BRw 148 : 
56 87 3C 00077 3$: MOVZ2WL (SP)+*, LENGTH : 1422 
OC AE B4 OD07A CLRW RECORD DSC : 1h 
59 0B AE 00000200 8F C1 0007D ADDL3 #512, GP, RI 3; 1430 
59 57 01 086 4%: CMPL SP, RO : 
10 1F 0008 BLSSU : 
58 D6 00088 INCL GST_VBN : 1431 
08 AE 9F 0008D PUSHAB BP : 1432 
5B DD 00090 PUSHL  GST_VBN : 
0000G CF 02 FB 0009 CALLS #2, ANLS$GET_IMAGE_BLOCK : 
57 08 AE DO 0009 MOVL BP, SP : 1433 
28 DS 00098 5$: TSTL LENGTH 3; 1438 
42 13 00090 BEQL 4 : 
59 08 AE 00000200 8F C1 0009F ADDL> #512, BP, RO : 1443 
$1 59 57 (30 SUBL3 SP, R9, R 3 
50 56 00 OOOAC MOVL LENGTH, RO : 
51 50 61 OOOAF CMPL RO, R1 : 
03 18 00082 BLEQU 6$ F 
50 51 00 00084 MOVL R1, RO F 
SA 50 DO 00087 6$: MOVL RO, TAK : 
50 OC AE 3C OOOBA MOVZWL RECORD_DSC. RO 3 1444 
50 10 AE CO O00BE ADDL RECORD-DSC +4, RO : 
60 67 5A 28 000C2 MOVC TAKE, TSP), 3 
OC AE 5A AO 0006 ADDW2 TAKE, RECORD DSC > 1445 
51 57 5A C1 OOOCA ADDL3 TAKE, SP, R : 1446 
00 SA 01 7A 000 EMUL Wi, TAKE, #0, -(SP) : 
50 BE 02 78 0000 EDIV. #2. (SP)+, RO, R : 
57 51 50 C1 00008 ADDL3 RO, RI, S : 
56 5A C2 000DC SUBL2 TAKE, LENGTH : 1447 
AS 11 OOODF BRB 4 + 1426 
OC OA 83 QO0E1 7$: TSTw RECORD_DSC 3 1453 
75 13 OO00E4 BEQL 1 ; 
52 10 BE 9A O00E6 MOV7BL @RECORD_DSC +4, R2 : 1455 
OC 12 OOOEA BNEQ ee : 1456 
OC AE 9F OODEC PUSHAB RECORD_DSC 2 
58 DD OOOEF PUSHL RECORD NUMBER 3 
0000G CF 2 FB OOOF1 CALLS #2, ANCSOBJECT_HDR i 
B 11 000F6 BRB 116 ; 
01 52 91 OOOF8 8$: CMPB R2, #1 : 1458 
OC 12 000FB BNE OQ 9$ 3 
OC AE 9F OOOFD PUSHAB RECORD_DSC : 
58 DD 00100 PUSHL RE CORD NUMBER : 
0000G CF 02 FB 00106 CALLS #2, ANCSOBJECT_GSD i 
2A 11 0010 BRB 11§ ; 
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03 52 91 4 9%: cMPB R2, #3 : 1460 

OC 12 10¢ BNEQ 1 : 

0c AE OF 4 PUSHAB RECORD_DSC 3 

; DD 0011 PUSHL RECORD NUMBER ; 

0000G CF re SEF cate . § ANC SOBJECT_EOM 3 
4 DD ST TA 10$ PUSHL R2 3 1462 

1) ) gti PUSHL RECORD_NUMBER : 

000000006 BF DD OOTIE PUSHL #ANLOBJ$_EXEBADOBU : 

0000G CF 3 FB Bot 4 CALLS #3, ANLSFORMAT_ERROR : 
0c ay 4 3 Any -- aaa tae 3 1463 

0000G CF 83 ia:) $03 CALL #2, ANLSFORMAT_HEX : 
E OC AE 3C Bt 11$ MOVZWL RECORD DSC, -(5P) 3 1469 

0000G CF 01 FB 001 CALLS #1, ANCSOBJECT_RECORD_SIZE i 
7E 1 CE 00135¢ MNEGL ai, -( 3: 1473 

0000G CF 1 £8 gat F CALLS #1, ANLSREPORT_LINE ; 
7E 1 CE 00144 MNEGL #1, <(SP) 3 1476 

0000G CF 1 €B 00147 CALLS #1, ANLSREPORT_LINE : 
27 0000G CF €9 0014C BLBC ANL$GB_INTERACTIVE, 13% 3 1479 
0000G CF 0 8 00151 CALLS #0, ANCSINTERACT : 1480 

1F 0 +1 00156 BLBS RO, 13% : 
ef 1 00159 GAH 16 : 1481 
8 DD 00158 12% PUSHL RECORD_NUMBER 3; 1487 

000000006 8F DD 00150 PUSHL #ANLOBJ$_OBJNULLREC 3 

0000G CF 02 FB 00163 CALLS #2, ANLSFORMAT_ERROR ; 
7E 01 CE 00168 MNE GL ai, <-(SP ; 1488 

0000G CF 01 FB 00168 CALLS #1, ANLSREPORT_LINE é 
7E 01 CE 00170 MNEGL #1, -(SP) : 1489 

0000G CF 01 FB 00173 CALLS #1, ANLSREPORT_LINE : 
58 D6 00178 138: INCL RECORD_NUMBER : 1416 

6€ 58 D1 OOI17A 148: CMPL RECORD_NUMBER, GST_RECORD_COUNT : 

03 1A 00170 BGTRU 15$ F 

FEFS 31 OO17F OK 3$ ; 
50 01 +4 Bo 1ee 15$: ~ ty #1, RO 3 1493 
50 D4 00186 16% CLAL RO : 1495 

04 00188 RET 3 


3 Routine Size: 393 bytes, Routine Base: S$CODES + 07(D 


986 1496 1 

987 1497 0 end eludom 
; PSECT SUMMARY 
: Name Bytes Attributes 
: $PLITS 332 NOVEC.NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 180 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; S$cCODEsS 2390 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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Library Statistics 


: (ee ae SO ce ae on oe S y™bo t & eeeeeoeecon Pages Proc ess ing 
; File Total idaded Percent Mapped Time 
; .$255$DUA28:(5¥SL 18). 18.132; 1 18619 88 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS:EXESTUFF /OBJ=OBJS:EXESTUFF MSRCS:EXESTUFF /UPDATE=(ENHS:EXESTUFF) 


Size: 2390 code * 512 data bytes 


Elapsed Hees 01:58.6 
Lines/CPU Min: g706 
arty talh Syty 1 
peer Used: 392 pages 
Compilation Complete 
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